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«REM a 
IDENTIFICATION 
PRODUCT CODE: AC-F 627D-MC 
PRODUCT NAME: CKKUADO 11/24/44 UBI MAP 
DATE CREATED: OCTOBER, 1981 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT lane 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE et IN ry DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY. DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 


te OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1979, 1982 BY DIGITAL EQUIPMENT CORPORATION 
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39 

40 

41 

2 HISTORY SECTION 

Ge 

45 CKKUAAO WAS RELEASED OCTOBER, 1979 > INITIAL RELEASE 

46 CKKUABO WAS RELEASED OCTOBER, 1980 > ADDITION OF UNIBUS MEMORY TEST 

47 CKKUACO WAS RELEASED APRIL, 1981 > TESTING OF 11/24 MAP, Lad»; WITH UNIBUS 
48 MEMORY ONLY, & POWER MONITOR BIT CHECK. 
49 CKKUADO WAS RELEASED OCTOBER, 1981 > SETUP OF SOFTWARE/HARDWARE SWR ADDRESS 
50 WAS ADDED TO STARTUP CODE. 

51 > WHEN SELECTED, THE OPTIONAL CACHE TESTS 


52 NOW RUN CORRECTLY. 
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PROGRAM DESCRIPTION 
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1. ABSTRACT 
THIS PROGRAM IS DESIGNED TO BE RUN ON A PDP 11/24 OR 11/44 ON 
ICH THE CPU, CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTIC PROGRAMS HAVE BEEN RUN. THE PROGRAM WILL DETECT ALL 


VE BEEN 
ERRORS THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 
CAPABILITIES SO_THAT THE FIELD SERVICE ENGINEER CAN VERIFY 
THE FAILURES. THERE MAY BE SOME CASES, SUCH AS THE CACHE 
C DATA PATH " RE 


INTE TION, BUT 
THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 


IF THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST AND IS ALLOWED 


OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED PRIOR TO THE 
CURRENT TEST ARE FUNCTIONING PROPERLY. 


THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT, WITH A MESSAGE INDICATING 


THE CLASS OF ERROR, A + + gt: EACH COLUMN AND A REPORT OF 
ALL ‘vie a DATA. WHEN THE TEST CAN PRODUCE MORE THAN ONE ERROR 
CONDITION, A SUMMARY OF ERRORS WILL BE GIVEN AT THE END OF THAT —— 
CONSISTING OF: THE LOGICAL ‘AND’ AND ‘OR* OF IHE DATA PREVIOUSLY 
REPORTED AND THE NUMBER OF ERRORS IN THIS TEST. (SEE SECTION 6.3 FOR 
AN EXAMPLE OF THE ERROR TYPEOUTS.) 


WUBSanawrumno SRR Oe Sas 


— ot et sd SS os SI So os ss ss SS SS a 
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SEQUENCE 5 


te 2. REQUIREMENTS 

\¢? 2.1 EQUIPMENT 

127 THE BASIC PDP=11/24 a 44 COMPUTER, INCLUDING THE CPU, CACHE 
128 (11/44 ONLY), MEMORY MANAGEMENT, AND AN LA-30 OR EQUIVALENT DEVICE 
4 FOR ERROR MESSAGES. 

13) 2.2 STORAGE 

133 THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 
134 EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 

1e2 FROM THE UNIBUS. 

4 2.3 PRELIMINARY PROGRAMS 

139 THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT 

140 DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 
141 DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK iy ds OF THE AREA 
142 OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN 
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LOADING PROCEDURE 
METHOD. 
THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT IS 


SUPPORTED BY XXDP_AND SHOULD BE LOADED USING THE XXDP 
PROCEDURE FOR THAT DEVICE. 


SEQUENCE 6 | 
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11/24 W UNIBUS MEMORY ONLY (NO MAIN ME 
ENTER A NUMBER WITH AT LEAST BIT 11 SET (SWR=4000). THIS WILL Key 
THE PROGRAM TO TEST THE 11/24 IN THAT CONFIGURATION. 


4.3 SPECIAL STARTING PROCEDURE 


IF IT APPEARS THAT THE CACHE IS CAUSING SOME TROUBLE AN 
YOU STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 

THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 

ESIRED NUMBER. THEN Ts 

THE P gE hes das 707) WITH THE STARTING ADDRESS (200) AN 
PRESS ‘‘CONTINUE’'. THE PROGRAM WILL NOW RUN NORMA ity EXCEPT 
THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 
THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER. 


DEFINITION OF THE BITS IN THE CACHE CONTROL REGISTER: 
BITOO =DISABLE TRAPS 
BITO2 -FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 0 


BITO3 FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 1 
BITO9 =UNCONDITIONAL CACHE BYPASS 


; 4. STARTING PROCEDURE 

2 4.1 STARTING ADDRESS 

: PROGRAM STARTS AT ADDRESS 200 

3 4.2 PROGRAM AND/OR OPERATOR ACTION 

5 THE PROGRAM WILL IDENTIFY ITSELF. IF CPU IS AN 11/44, PROGRAM 

5 WILL PROCEED WITH TESTING. IF CPU IS AN 11/ 2h AND LOCATION 176 
6 CONTAINS ZERO (SUCH AS JUST AFTER LOADING), PROGRAM WILL a,” 
6 FOR A SWITCH T NPUT. E IS RE wer, ENTER 

e IF YOU DO_SO, PROGRAM WILL DEPOSIT A ‘‘l"* IN LOCATION 176 HEAMINGLESS 
6 

6 

6 

6 


ek ed td ed od 2 od 


G0 00 09 00 09 08 INI NIN NNN SO 
AR WO GSA RAW OD G0 GA RU OOO TOE WO 


== 


CKKUADO 11/24/44 UBI MAP 


VIS SRLEFEANLESELE 


NONINY 3 2 Ss 


203 


MMP NONMPoNory 
and aah aah and and cath cd ed aed 
WONAUES WR 


MACRO M1113 26-OCT-81 11:08 PAGE 5 


5.2 


5.2.1 


5.2.2 


3.2.9 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SW15 1= HALT ON ERROR 

Sw14 1= LOOP ON TEST = 

SwW13 1= INHIBIT ERROR TYPEOUTS 

SW12 1= Lied TRACE TRAP 

Sw11 1= SET WHEN RUNNING AN 11/24 WITH NO MAIN MEMORY 
AND ONLY UNIBUS MEMORY 

swie 1= BELL ON ERROR 

Sw09 1= LOOP ON ERROR 

$w08 1= LOOP ON TEST IN SWR<05:00> 

Sw07 - INHIBIT MULTIPLE ERROR TYPE OUTS 


ATI 
BY APT SCRIPTING. THESE TESTS ASSUME THAT 
ALL MODULES EXCEPT UBI MODULE ARE KNOWN GOOD. 
Ss UNIBU MORY TESTS 


SET WHEN A WINDOW EXISTS (SOME UBMAP JUMPERS CUT), AND 
UNIBUS MEMORY OCCUPIES THE ENTIRE WINDOW ADDRESS AREA. 


SUB-ROUTINE ABSTRACTS 


ALL SUBROUTINE <p eg i: a IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
BELOW IS A LIST OF THE SUBROUTINE TITLES. 


MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) (SOME IN THIS SOURCE) 


SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPE OUT ROUTINE 

CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 
SAVE AND RESTORE RO-R5 ROUTINES 

TYPE ROUTINE 

BINARY TO OCTAL (ASCiI) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TRAP DECODER 

POWER DOWN AND UP ROUTINES 

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
END OF PASS ROUTINE 


SUBROUTINES UNIQUE TO THIS PROGRAM 


SUBROUTINE TO TURN OFF AND SAVE T-BIT 

SUBROUTINE TO RESTORE T-BIT TO ITS PREVIOUS CONDITION 

SUBROUTINE TO CLEAR ae OF axok MAP REGISTERS 

SUBROUTINE TO EXTRACT ADDRESS FROM PAR CONTENT 

SUBROUTINE TO DETERMINE E124 WITH UNIBUS MEM ONLY *: CHECK LMA'S IF SO 


TRAP AND ABORT HANDLER ROUTINES 
CPU TRAP HANDLER ROUTINE 


CACHE TRAPS AND ABORTS HANDLER ROUTINE 
MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


SEQUENCE 8 
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5.3 RUNNING UNDER APT 


THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
ARE FOR EXECUTION WITH A 11/44 PROCESSOR, 
16K CORE MEMORY, AND 300 BAUD. 
THE FOLLOWING I$ A PROGRAM LOAD FILE USED BY APT: 


1. ; TABLE ‘A’ IS USED FOR APT DUMP MODE. 


- IN ADDITION 


TO NORMAL CPU DIAGNOSTIC TESTS, THIS 
TABLE WILL SELECT THE OPTIONAL CACHE TESTS, 


CACHE, 


($SWREG=100). 


2. E TABLE "B" IS USED FOR APT QV MODE WHILE og foe : 


MANUFACTURING QV STA 


TION. 


IT ACCOMPLISHES WHAT ETAB 
"A* DOES BUT ADDITIONALLY SUPRESSES TYPEOUTS. ot SENVME 540) 


3. ETABLE ‘C’ IS USED FOR APT QV OR RUNTIME MODES WHILE 
RUNNING ON SYSTEMS OTHER THAN MFG. QV STATIONS. THIS 
TABLE DESELECTS THE OPTIONAL CACHE TESTS. 


4. ETABLE "D* IS USED BY ee any TO RUN AN 11/24 UNDER 
M MAIN MEMORY, AND BECAUSE OF 
NO CACHE IN AN 11/24, DeSELECTS THE OPTIONAL CACHE TESTS. 


APT WITH UNIBUS 


1ST PASS LONGES ADDITIONAL 
RUN TIME TEST TIME RUN TIME 
10 5 0 
ccccce E TABLES eee 
A B 
E-MODE /S-MODE 000/000 240/001 
(SENVM/SENV) 
SWITCH REGISTER 1 000100 000100 
(SSWREG) 
SWITCH REGISTER 2 000000 000000 
CPU _TYPE/OPTIONS 00/0000 00/000 
MEMORY MAP CODE 1 000/0000 000/0000 
E MAP CODE 2 000/0000 000/0000 
MEMORY MAP CODE 3 000/0000 000/0000 
MEMORY MAP CODE 4 000/0000 000/0000 
BUS PRIORITY/INTERRUPT 1 0000 0000 
BUS PRIORITY/INTERRUPT 2 0000 0000 
BASE ADDRESS CODE 000000 000000 
DEVICE MAP CODE 000000 000000 
CTLR. SPECIFIC WORD 1 000000 000000 
CTLR. SPECIFIC WORD 2 000000 000000 
DEVICE DESCRIPTOR WORD 0 177777 177777 
DEVICE DESCRIPTOR WORD 1 177777 177777 
DEVICE DESCRIPTOR WORD 2 a 00000 
DEVICE DESCRIPTOR WORD 15 000000 000000 


MORY AND N 


C 
240/001 
000000 


yess 


000000 
000000 


D 
240/001 


004000 


000000 


SEQUENCE 9 
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6.2 


6.3 





SEQUENCE 


ERRORS 
ERROR HALTS AND DESCRIPTION 
WHEN AN ERROR IS DETECTED AN *ERROR® (EMT) 


INSTRUCTION IS EXECUTED AND THE ‘ERROR HANDLER ROUTINE’ 
CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 
THE PROGRAM WILL: 


L 
HALT ON ERROR IF SW15=1 
INHIBIT ERROR TYPE OUT IF oA f a 
RING BELL ON ERROR IF SW10=1 
LOOP ON ERROR IF SW9=1 


ERROR RECOVERY 


IF SWO9=1, THE PROGRAM WILL LOOP BACK 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 
EXECUTED, phoethe ALLOWING ANY OF THE CONDITIONS TO CHANGE. 
THIS WILL PROVIDE THE 7IGHTEST POSSIBLE SCOPE LOOP. 

IF SwO9=0, EA CH_ERROR WILL BE y teeth AND 

LOGGED AND, AT THE END OF EACH TEST, A SUMMARY OF Ar ERRORS 
OCCURRING IN THAT TEST WILL BE PROVIDED. THE 

CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 
DATA THAT WAS WRONG. 


IF THE POWER MONITOR BIT ERROR IS CALLED, YOU MUST RELY OW THE 


RESULTS OF THIS DIAGNOSTIC. THE ERROR CAN BE CALLED AT 1 OF 2 

PLACES = 1) IN THE SCOPE ROUTINE EXECUTED AT THE BEGINNING OF EACH 
TEST, AND 2) IN AN ERROR CALL IN CASE BIT BECOMES SET AFTER THE SCOPE. 
IF THE BIT IS CAUGHT IN THE ERROR TINE, *TWO* ERRORS ve CALL - 
1) POWER MONITOR BIT ERROR WILL CALL FIRST TO ALERT YOU TO THE 
POSSIBILITY THE PROBLEM COULD BE CAUSED BY THE OUT-OF-SPEC POWER 
SUPPLY, AND THEN THE ERROR THAT WAS TO CALL. 


SAMPLE ERROR TYPE OUTS 
SEE ‘‘SERRTB:** FOR SAMPLE ERROR TYPEOUTS. 
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336 6.3.1 MULTIPLE TYPE ERRORS: AN EXAMPLE: 

$32 THE FOLLOWING REGISTERS TIMED OUT WHEN REFERENCED 
35 RES ADR TESTNO ERRORPC 

336 170210 000001 015226 

337 170212 000001 015232 

338 , J ' 

339 ‘ ' J 

340 TO 

341 i] J 

342 ] a ‘ 

343 170372 000001 015232 

344 170374 000001 015232 

<2 170376 000001 015232 

347 SUMMARY OF ve REGISTERS THAT TIMED OUT ON READ 

348 REGADRS REGADRS 

349 "OR" “"AND'' #ERRORS TESTNO ERRORPC 

350 170376 170210 32 000001 010530 


eee 
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351 v. RESTRICTIONS 

338 7.1 STARTING RESTRICTIONS 
338 NONE 

357 V.2 OPERATING RESTRICTIONS 
359 NONE 


SEQUENCE 
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MISCELLANEOUS 

EXECUTION TIME 

THE RUN TIME FOR ANY PASS IS APPROXIMATELY 3 SECONDS. 

ADDRESS GENERATION IN THE PDP=11/44 

THE FOLLOWING :s AN EXAMPLE OF HOW A MEMORY ADDRESS 

IS_GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 

THE ADDRESS ORIGINATES IN THE CPU BUT THE PROCESS CAN 

APPLY TO ANY UNIBUS ADDRESS, STARTING AT LINE C2. 
VIRTUAL ADDRESS 15 14 13 12 11 10 09 08 07 C’ 05 04 03 02 01 
P.A.R. PAGE NUMBER (0-7) 15 14 13 
OFFSET (FROM VIRTUAL ADDRESS) 12 11 10 09 08 07 06 05 04 03 02 01 


P.A.R.CPAGE NO.J + 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


PHYS ADDRS (A2+B) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
17XXXXXX=> U.B.ADR. 21 20 19 18 


. MAPPING REG.NO. (0-36) 17 16 15 14 13 
. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 


MAP REG.CNO.] + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 


PHYS ADDR (C3+D) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 


ign! OF LINE 
A: VIRTUAL yt S 
Al: ' 


SELE 


16 BITS 
c R 3 BITS OF VIRTUAL ADDRESS, USED TO 
A2: LOWER 1 
SELECTE 


S: 
fs 
A PAGE ADDRESS REGISTER (PAR) 

At Ah OF VIRTUAL ADDRESS, ADDED TO 

B: PAGE ADDRESS REGISTER (16 BITS), IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 


C: PHYSICAL ADDRESS rei BY MEMORY MANAGEMENT, (22 BITS) 
C1: IF UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 
F C2: IF a. RELOCATION IS ENABLED THEN BITS <17:135> SE.£CT ONE 
OF THE 36 (OCTAL) MAP REGISTERS. 
C3: POWER 13 BITS OF UNIBUS ADDRESS, ADDED TO SELECTED MAP REGISTER 


D: MAP REGISTER (22 BITS), ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 
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9. 


PROGRAM DESCRIPTION 


THE ASSEMBLED LISTING, CKKUAD.SEQ, HAS A PARAGRAPH DESCRIBING 
EACH OF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 
RUN CONDITIONALLY ON THE STATUS ON THE CACHE CONTROL REGISTER.@ 
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~TITLE CKKUADO EE nae UBI MAP 
s*COPYRIGHT (C) APRIL 1981 
:*DIGITAL EQUIPMENT CORP. 

: *MAYNARD, MASS. 01754 


: PROGRAM BY DAN P. MILLEVILLE 


i eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC=C5), JAN, 1981. 


*S8TTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT TRACE TRAP 
B ON ERROR 


— 3 


MANO OO—hWEW 


ON ERROR 
LOOP ON TEST IN SWR<4:0> 
INHIBIT MULTIPLE ERROR TYPEOUTS 
SELECT CACHE-CIS TESTS 
SELECT MEMORY ON UNIBUS TEST 
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~-SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 sx 


STACK= 1100 z3FIRST ADDRESS OF THE STACK 
KERSTK= STACK RNEL STA 
SUPSTK= STACK=200 i SUPERVISOR STACK 
USESTK= STACK=300 S:USER STACK 
ERROR=EMT : 
SCOPE=10T : 
PS= 177776 ::PROCESSOR STATUS WORD 
STKLMT= 177776 +:STACK LIMIT REGISTER 
PIRQ= 177772 : :PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ARDWARE SWITCH REGISTER 
DDISP= 177570 < HARDWARE DISPLAY REGISTER 
1 <LINE CLOCK (KW11-L) STATUS REGISTER 


LKS= 77546 
3 *MISCELLANEOUS DEFINITIONS 
HT= 11 ::CODE FOR se TAB 
LF= 12 3;CODE LINE FEED 
1 +3 CODE ewe pe) 


CR= RETURN 
CRLF= 200 ODE FOR CARRIAGE RETURN-LINE FEED 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 3:GENERAL REGISTER 
R1= 1 >:GENERAL REGISTER 
R2= 12 >:GENERAL REGISTER 
R3= 13 ::GENERAL REGISTER 
R4= 14 7:GENERAL REGISTER 
R5= 15 [GENERAL REGISTER 
R6= 16 7:GENERAL REGISTER 
R7= 47 + GENERAL REGISTER 

R10=RO 3 

R11=R1 : 

R12=R2 ; 

R13=R3 : 

R1G=R4 : 

R15=R5 3 
SP= 6 ::STACK POINTER 

KSP=SP ; 

SSP=SP 

USP=SP 

7 :PROGRAM COUNTER 


Pc= 
zePRIORITY LEVEL oer nttiine 


0 :zPRIORITY LEVEL 0 
PR1= 40 :;PRIORITY LEVEL 1 
PRe= 100 :sPRIORITY LEVEL ¢ 
PR3= = 140 :sPRIORITY LEVEL 
PR4= 200 2sPRIORITY LEVEL 4 
PRS= 240 :sPRIORITY LEVEL 5 
PR6= 300 :;PRIORITY LEVEL 6 
PR/= 340 - zsPRIORITY LEVEL 7 

* SWITCH REGISTER’’ SWITCH DEFINITIONS 

Swi5= 100900 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SWi1= 4000 
SW10= 2000 
Sw0o9= 1000 


—S A SSeS tS 
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BASIC DEFINITIONS 


sw08= 400 
swO7= 200 
5w06= 100 
SwO5= 40 
SwO4= 20 
SwO3= 10 
SwO2= 4 
SWO1= 2 
swo0= 1 
SWw9=SWO 
SW8=SWO8 
W7=SW07 
SW6=SW06 
SW5=SW05 
SW4=SWO04 
SW3=SW03 
SW2=SwO2 
SW1=SW01 
O=SW 
s*DATA 
BIT15= 10000 
BIT14= 40000 
BIT13= 20000 
BITi2= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BIT07= 200 
BIT06= 100 
BITOS= 40 
1T04= 20 
BIT03= 10 
BITO2= 4 
BITO1= 2 
BITOO= 1 
BIT9=BITO9 
B1T8=81T08 
BIT7=B1T07 
B1T6=B1T06 
BIT5=B1T05 
BIT4=BIT04 
B1T3=B1T03 
BIT2=B1T02 
BIT1=B1T01 
BITO=B] 
: *BASIC 
ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
VEC= 24 
EMTVEC= 30 
TRAPVE C=34 
TKVEC= 60 


E 
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T00 
CPU"* TRAP VECTOR ADDRESSES 


SEQUENCE 


SW0=SW00 
air alicia (BITOO TO ‘BIT15) 


E OUT AND OTHER ERRORS 
SERED AND ILLEGAL INSTRUCTIONS 


3 TRACE TRAP 
:IBREAKPOINT TRAP (BPT) 
33 th tua TRAP (IOT) **SCOPE** 


FAIL 
: EERULATOR TRAP (EMT) **ERROR** 
R TRAP 
3; TTY KEYBOARD VECTOR 
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000250 
177740 


177752 
177760 
177762 


177764 
177766 


177656 


CKKUADO 11/24/44 UBI MAP 


F 
MACRO M1113 26-OCT-81 11:08 PAGE 17-5 


SEQUENCE 


TPVEC= 64 ::TTY PRINTER VECTOR 
KVEC= 100 :ELINE CLOCK (KWil=L) VECTER 
CACHVEC=114 CHE ERROR INTERRUPT VECTOR 
PIRQVEC=240 33 PROGRAM INTERRUPT REQUEST VECTOR 
VEC= 250 MEMORY MANAGEMENT VECTOR 
.SBTTL CACHE REGISTER * DEFINITIONS 
LOADRS = 177740 ::LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
HIADRS = 177742 ::UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
MEMERR = 177744 Z:CACHE ERROR REGISTER 
CONTRL = 177746 33MEMORY CONTROL REGISTER 
MAINT = 177750 MEMORY MAINTENENCE REGISTER 
HITMIS = 177752 i:HIT MISS REGISTER "1" IMPLIES HIT IN CACHE 
.SBTTL CPU REGISTER DEFINITIONS 
SIZELO = 177760 ::MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
3:10 GET TO THE LAST 32 WORDS 
SIZEHI = 177762 {HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
3 CURRENTLY ALL ZERO 
SYSTID = 177764 :iSYSTEM ID REGISTER 
CPUERR = 177766 :3CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 


TRAP TO ERRVEC (000004) 


TTL MEMORY Y_MANAGEMENT. DEF INITIONS 


- SB 
:*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
MMRO= 572 


=MMRO e 
SR1=MMR1 é 
SR2=MMR2 3 


R3=MMR3 : 
:*USER "‘I'’ PAGE DESCRIPTOR REGISTERS 
UIPDR 7600 


UIPDR7= 


177636 
ER ‘I’ PAGE ADDRESS REGISTERS 
iTPARO= 177640 


UIPAR6= 177654 
UIPAR7= 177656 
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s*USER ‘'D'’ PAGE ADDRESS REGISTERS 
UDPARO= 177660 


UDPAR? 
3: *SUPERV 
SIPDRO 


“ 
ad 
Uv 
4 
» 
_ 
noun 
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CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE 17-4 SEQUENCE 20 
MEMORY MANA 


GEMENT DEFINITIONS 
172324 KDPDR2= 172324 
172326 KDPDR3= 172326 
172330 KDPDR4= 172330 
172332 KDPDR5= 172332 
177334 KDPDRG= 172534 
172336 KDPDR7= 172336 

;*KERNEL "'I'’ PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 

:*KERNEL ''D'’ PAGE ADDRESS REGISTERS 
172360 KDPARO= 172360 
172362 KDPAR1= 172362 
17236 KDPAR2= 172364 
172366 KDPAR3= 172366 
172370 KDPAR4= 172370 
172372 KDPARS= 172372 
172374 KDPAR6= 172374 
172376 KDPAR7= 17237 


PAR7 6 
-SBTTL UNIBUS MAP er DEFINITIONS 
3*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX' 
ianO0ce 1 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX' 


170200 MAP = 170200 
170202 MAPHOO = 170202 
170204 MAPLO1 = 170204 
170206 MAPHO1 = 170206 
170210 MAPLO2 = 170210 
17021 MAPHO2 = 170212 
170214 MAPLOS = 170214 
170216 MAPHO3 = 170216 
170220 MAPLO4 = 170220 
170222 MAPHO4 = 170222 
170224 MAPLOS = 170224 
170226 MAPHOS = 170226 
170230 MAPLO6 = 170230 
170232 MAPHO6 = 170232 
170234 MAPLO? = 170234 
170236 MAPHO7 = 170236 
170240 MAPL10 = 170240 
170242 MAPH10 = 170242 
170244 MAPL11 = 170244 
170246 MAPH11 = 170246 
170250 MAPL12 = 170250 
170252 we = 170252 
170254 MAPL135 = 170254 
170256 MAPH13 = 170256 
170260 MAPL14 = 170260 
170262 MAPH14 = roses 
170264 MAPL15 = 170264 
170266 MAPH15 = 170266 
170270 MAPL16 = 170270 
170272 MAPH16 = 170272 


I 
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CKKUADO 11/24/44 UBI MAP 
UNIBUS MAP REGISTER DEFINITIONS 
170274 MAPL17 = 170274 
170276 MAPH17 = 170276 
170300 MAPL20 = 170300 
170302 MAPH20 = 170302 
170304 MAPL21 = 170304 
170306 MAPHe1 = 170306 
170310 MAPL22 = 170310 
170312 MAPH22 = 170312 
170314 MAPL23 = 170314 
170316 MAPH2S = 170316 
170320 MAPL24 = 170320 
170320 MAPH24 = 170320 
170324 MAPL25 = 170324 
170326 MAPH25 = 170326 
170330 MAPL26 = 170330 
170332 MAPH26 = 170332 
170334 MAPL27 = 170334 
170336 MAPH27 = 170336 
170340 MAPL30 = 170340 
170342 MAPH30 = 170342 
170344 MAPL31 = 170344 
170346 MAPH31 = 170346 
170350 MAPL32 = 170350 
170352 MAPH3S2 = 170352 
170354 MAPL33 = 171354 
170356 MAPH33 = 170356 
170360 MAPL34 = 170360 
170362 MAPH34 = 170362 
17 MAPL35 = 170364 
170366 MAPH3S5 = 170366 
170370 MAPL36 = 170370 
170372 MAPH36 = 170372 
170374 MAPL37 = 170374 
170376 MAPH37 = 170376 
170200 MAPLO=MAPL00 : 
170202 MAPHO=MAPHO0 : 
170204 MAPL 1=MAPLO1 : 
170206 MAPH1=MAPHO1 : 
170210 MAPL2=MAPL02 : 
170212 MAPH2=MAPHO : 
170214 MAPL 5=MAPLO : 
170216 MAPH3=MAPHO3 : 
170220 MAPL 4=MAPL 04 ; 
170222 MAPH4=MAPH04 : 
17022 MAPLS=MAPLO05 : 
170226 MAPH5=MAPHO5 : 
170230 MAPL6=MAPL 06 ; 
170232 MAPH6 0 : 
170234 MAPL7=MAPL07 : 
170236 MAPH7=MAPHO7 : 


CKKUADO 11/24/44 UBI MAP 
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1489 
000000 


000174 
000174 000000 
000176 000000 


000200 000137 010000 
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MACRO M1113 26-OCT-81 11:08 PAGE 18 SEQUENCE 


-SBTTL TRAP CATCHER 


:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT" 
‘SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
*LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3 sSOFTWARE DISPLAY REGISTER 
SWREG: _.WORD 0 3sSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


22 


K 2 
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ACT11 HOOKS 





1491 » SBTTL ACT11 HOOKS 


AAI IDIOISISISIDIOIISIIOIISIIOIIISIIOIII IOI IOI III IOI TT OT EE EE 
Hooks REQUIRED BY ACT11 
poneee $SVPC=. sSAVE PC 


0 =46 
000046 . SENDAD 721)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


000052 000 -WORD 0 +22)SET LOC. pee TO ZERO 
000204 -=SSVPC z3 RESTORE P 


CKKUADO_ 11/24/44 UBI MAP 
COMMON TAGS 
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377 


SEQUENCE 
.SBTTL COMMON TAGS 
FERRARA REREEEEEEEEEEEREREREREEEEEREKEEREREEEREREEEREEREEREKE 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
**USED IN THE PROGRAM. 
.=1100 
SCMTAG: zzSTART OF COMMON TAGS 
-$PASS: .WORD 0 :: CONTAINS PASS COUNT :DPM001 
STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 7: CONTAINS ERROR FLAG 
SICNT: .WORD 0 ; :: CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 4° *:CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 :: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 :: CONTAINS ITEM CCNTROL 
RMAX: .BYTE 1 7: CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 7: CONTAINS ADDRESS OF ‘GOOD’ DATA : 
SBDADR: .WORD 0 :: CONTAINS ADDRESS OF "BAD' DATA 
SGDDAT: .WORD 0 :: CONTAINS "GOOD’ DATA 
SBDDAT: .WORD 0 :: CONTAINS "BAD' DATA 
- WORD 0 : :RESERVED=--NOT TO BE USED 
SAUTOB: .BYTE 0 zzAUTOMATIC MODE INDICATOR 
SINTAG -BYTE 0 :: INTERRUPT MODE INDICATOR 
: WORD WR ZZADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP Z:ADDRESS OF DISPLAY REGISTER 
TKS: 177560 t: TTY KBD STATUS 
STKB: 77562 zz TTY KBD BUFFER 
$TPS: 177564 S:TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 [TTY PRINTER BUFFER REG. ADDRESS 
LL: .BYTE 0 ::CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 Z: CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 SSINSERT FILL CHARS. AFTER A “LINE FEED" 
STPFLG: .BYTE 0 72''TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
E .WORD 0 [: CONTAINS THE ADDRESS FROM 
::WHICH ($REGO) WAS OBTAINED 
.REPT $C(M3 
EGO: .WORD 0 Z: CONTAINS (($REGAD) +0) 
SREG]: .WORD 0 t= CONTAINS (($REGAD) +2) 
$REG@: “WORD 0 SCONTAINS (($REGAD) +4) 
SREG3: .WORD 0 S:CONTAINS (($REGAD) +6) 
SREG4: .WORD 0 Z:CONTAINS (($REGAD) +10) 
REGS: WORD 0 SI CONTAINS (($REGAD) +12) 
STMPO: .WORD 0 ZZUSER DEFINED 
STMP1: .WORD 0 [USER DEFINED 
STMP2: WORD 0 T:USER DEFINED 
STMP3: WORD 0 S:USER DEFINED 
STMP4: WORD 0 [USER DEFINED 
STMP5S: WORD 0 [USER DEFINED 
TMP6: WORD 0 [USER DEFINED 
STIMES: 0 ee 5 R OF ITERATIONS 
SESCAPE :0 S:ESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ <207><377><377> ::CODE FOR BELL 


. 
| 
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COMMON TAGS 


00122 077 SQUES: .ASCII /?/ 3 QUESTION MARK 
00122 015 SCRLF: .ASCII <15> Sg as | RETURN 
001224 012 000 SLF: eASCIZ = <12> INE FEED 
MTTITITITIITITITT IT TITTIT IT ILITi titi i titi tii iiii iii iiiiiiiii i) 
001226 000000 BADRSL: -WORD 0 HOLDS THE ee 16 BITS OF A 22 BIT ADDRESS 
[GENERATED FOR TYPE OUT. 
001230 000000 PADRSH: .WORD 0 HOLDS > Yon UPPER Rg BITS OF A 22 BIT ADDRESS 
001232 000000 000077 ADRAND: .WORD 0,77 s LOGICAL AND “OF TTAILING ADDRESSES 
001236 000000 000077 ADDROR: .WORD 0,77 sLOGICAL OR OF rete ee ADDRESSES 
001242 000000 000077 DATAND: .WORD 0,77 s;LOGICAL AND OF 
001246 000000 000077 DATAOR: .WORD 0,77 LOGICAL OR OF BAD DAT 
001252 PATAND: .WORD 0 ;LOGICAL AND OF PATTERN LOADED 
001254 0 PATTOR: .WORD 0 :LOGICAL OR OF PATTERN LOADED 
001256 000000 LOWEST: .WORD 0 ;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
: LOWES ABLE MAP REGISTER TO RESPOND 
001260 000000 HIGEST: .WORD 0 ;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
HIGHEST USABLE MAP REGISTER TO RESPOND 
001262 000000 UBMLOW: .WORD 0 sHOLDS NUMBER TO PUT IN PAR TO SIGNAL 1ST 
ZADDRESS OF UNIBUS MEMORY 
001264 000000 UBMHI: .WORD 0 ;HOLDS NUMBER TO PUT IN PAR TO SIGNAL LAST 
SBLOCK OF 4K OF UNIBUS MEMORY 
1266 000000 MMRLOW: .WORD 0 sHOLDS LOWEST MAP REGISTER NUMBER FROM ‘LOWEST: 
001270 MMRHI: .WORD 0 sHOLDS HIGHEST MAP REGISTER NUMBER FROM *HIGEST . 
001272 000000 UBRLOW: .WORD 0 HOLDS LOWEST MAP REGISTER NUMBER FROM ° Ow: ° 
001274 000000 UBRHI : D 0 sHOLDS HIGHEST MAP REGISTER NUMBER FROM ‘UBMHI:' 
001276 BUPWIN: .WORD 0 HOLDS LOWEST USEABLE PAR OF UPPER WINDOW 
000000 LREGL: .WORD 0 ce 1/0 PAGE ADDR OF LOW 16 BITS OF 
\ THE LOWEST USABLE MAP REGISTER 
001302 000000 LREGU: .WORD 0 HOLDS 1/0 PAGE ADDR OF HIGH 6 BITS OF 
OF THE LOWEST USABLE MAP REGISTER 
001304 000000 LMAH: .WORD 0 sLOCATION TO HOLD LMA HIGH REGISTER CONTENTS 
001306 000000 LMAL: .WORD 0 SLOCATION TO HOLD LMA LOW REGISTER CONTENTS 
001310 000000 UBM24L: .WORD 0 LOCATION USED TO HOLD LMA LOW EXPECTED VALUE 
001312 000000 UBM24U: .WORD 0 LOCATION USED TO D LMA HIGH EXPECTED VALUE 
001314 000000 UBM24P: .WORD 0 LOCATION USED TO HOLD LMALOW PRELOAD 
001316 000000 NUMOFK: .WORD 0 s;LOCATION TO HOLD NUMBER OF K OF UB MEMORY 
001320 000000 ERRCNT: .WORD 0 MULTIPLE ERROR ERROR COUNTER 
001322 000000 CNTR «WORD 0 or ee COUNTER 
001324 000000 FLAG -WORD 0 FLAG TO INDICATE TO LAST PROGRAM PASS N 
001326 000000 CPUEXP: .WORD 0 SHOLDS THE EXPECTED CPU ERROR CODE 
001330 000000 PCPUER: .WORD 0 HOLDS RECEIVED CPU ERR I 
001332 000000 -WORD 0 : S RECEIVED PARITY ERROR C ] 
001334 000000 PCONTR: .WORD 0 HOLDS CONTENTS OF CONTROL REGISTER 
001336 000000 PMAINT: .WORD 0 zsHOLDS CONTENTS OF MAINTENENCE me 
001340 000000 PC: .WORD 0 :HOLDS =. OF INST THAT CAUSED T 
001342 000000 OLDPC: .WORD 0 sHOLDS THE RETURN ADDRESS Ake A TRAP 
001344 000000 LDPS: .WORD 0 sHOLDS THE OLD PROCESSOR STATUS 
001346 000000 OLDPSW: .WORD 0 : OLD PSwW FOR TBI TRESTORE 
001350 000000 0: .WORD 0 HOLDS CONTENTS OF MMRO AFTER TRAP 
001352 000000 PMMR1: .WORD 0 HOLDS CONTENTS OF MARI AFTER TRAP 
001354 000000 «WORD Q HOLDS CONTENTS OF MMR2 AFTER TRAP 
001356 000000 RSIZE: .WORD 0 sWILL HOLD P.A.R. DATA FOR TOP OF MEMORY 
001360 000000 RETRY: .WORD 0 RETRY FLAG IN CASE OF PARITY ABORTS 
001352 000000 NXTTST: .WORD 0 :LOCATION TO HOLD ESCAPE ADDRESS ON 
| 001364 000200 DATA: .WORD 200 PATTERN TO BE USED TO LOAD INTO MEMORY 


——————————————_ opiate ee ctl iain 
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-SBTTL ERROR POINTER TABLE 
3*THIS TABLE CONTAINS THE INFORMATION 4° EACH ERROR THAT CAN OCCUR. 
NUMBER FOUN 


*THE INFOR 


MATION IS OBTAINED BY USING THE INDEX 


: sLOCATION ities we NUMBER INDICATES WHICH ITEM IN THE hy 8 is PERTINENT. 
*® 


: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS SEP AINED AS FOLLOWS: 
3* EM ::POINTS TO THE ERROR MESSAGE 
ie DH ‘POINTS TO THE DATA HEADER 
a DT ::POINTS TO THE DATA 
te DF S:POINTS TO THE DATA FORMAT 
sen 
.WORD  EM1 :NOT THE CORRECT CPU TRAP CONDITION THROUGH ERRVEC (#094) 
“WORD DHT SRECEIVD EXPECTD TESTNO PC AT ABORT 
“WORD DT7 = PCPUER, CPUEXP, $TESIN,BADPC,0 
~ WORD DF1 : * eo e 0 
sITEM 2 
.WORD M2 ;UNEXPECTED CPU TRAP THROUGH ERRVEC (#004) 
WORD DH2 “RECEIVD TESTNO PC AT ABORT 
“WORD DT2 :PCPUER, $TESTN,BADPC ,0 
“WORD DF : 0, 0, 0 
s ITEM 3 
WORD EM3 i MEMORY MANAGEMENT TRAP MEMORY MANAGEMENT STATUS REGISTERS 
WORD DH3 ‘STATUS AUTOI/D VIRTADR 
:REGISTR REGISTR REGISTR TESTNO PC AT ABORT 
.WORD DT3 [PMMRO,PMMR1 ,PMMR2, $TESTN,BADFC,0 
“WORD DF1 : 0, 0. 0. 0. 0 
SITEM 4 
.WORD EMG : SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
“WORD DH ;REGADRS REGADRS 
"oR" AND WERRORS TESTNO ERR PC 
«WORD DT4 : ADDROR ADRAND ,ERRCNT .STESTN, SERRPC ,0 
"WORD DF4 2p ae to eo 
;1TEM 5 
.WORD EMS ; SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
WORD DH5 ;REGLOAD REGLOAD REGDUAL REGDUAL 
"OR" "AND"' AND #ERRORS TESTNO 
.WORD DTS ‘ ADDROR -ADRAND ,DATAORDATAND .ERRCNT .STESTN.O 
WORD DFS ‘oe ty oe 
7 ITEM 6 
.WORD EiM6 ; SUMMARY OF pit PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 
WORD DH6 ;MAPR EG  MAPREG  EXPECTD EXPECTD RECEIVD RECEIVD 
AND ‘OR AND’ #ERRORS TESTNO 
wORD DT6  ADDROR, ADRAND PATTOR PRTAMD .DATADR DATOND ERACNT STESTm & 
WORD DF6 : 2, 2, 0. 0, 6, 0. 1. 0 


TEMB 1S 0 THE ONLY PERTINENT DATA IS ($ERR 


3 
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ERROR POINTER TABLE 


sITEM 7 


1533 
1334 001446 066398 ~ WORD —EM7 ; SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS 4 A acd REGISTERS 
1535 001450 030412 “WORD  DH6 :MAPREG MAPREG  EXPECTD EXPECTD RECEIVD RECELV 

1238 *‘or'' ‘AND *‘or'' "“AND'’ = =*‘OR* #ERRORS TESTNO 
1537 001452 036206 ~ WORD DT6 *ADDROR, ADRAND ,PATTOR,PATAND ,DATAOR, DATAND, ERRCNT ,$TESTN,O 
1338 001454 03353 [WORD DF6 3 fo fe Oe 0. 0. O Ie © 

1540 ;1TEM 10 

1541 001456 024655 ~ WORD —EM10 sCAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 

1542 +30 JUMPING Y THE SIZE JUMPER TEST FOR VERIFICATION 

1543 001460 030601 » WORD DH10 sTESTNO ERR P 

1544 001462 032324 ~ WORD pT10 *$TESTN, SERRPC,0 

1345 001464 033513 “WORD DF 70, 0 

1547 s ITEM 11 

1548 001466 025027 ~ WORD —EM11 ; SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 
1549 001470 030626 ~ WORD DH11 sEXPECTD EXPECTD RECEIVD RECEIV 

1550 "“AND'’ = *‘OR"' ‘AND #ERRORS TESTNO 

1551 001472 032334 «WORD DT11 ‘PATTOR, PATAND ,DATAOR ,DATAND,,ERRCTN,$TESTN,O 

135¢ 001474 033543 -WORD DF11 : 0, 0, 0, 0, 1, 0 

1554 s ITEM 12 

1555 001476 025121 ~ WORD EM12 ;UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 

1556 001500 030601 ~ WORD DH10 3: TESTNO R 

1557 001502 032324 -WORD DT10  :$TESTN,SERRPC,0 

1358 001504 033513 “WORD DF1 : 0, 0 

1560 s ITEM 13 

1561 001506 025173 WORD EM'3 ; CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 

1562 ; ADDRESS AL He STUCK LOW, MUST RESTART PROGRAM 

1563 YOU DON'T P ON THIS PROBL EM. 

1564 001510 030601 ~ WORD DH10 Te rny ERR P 

1565 001512 032324 “WORD DT10 :$TESTN,SERRPC, 6 

1366 001514 033513 “WORD DF : 0. 0 

1568 sITEM 14 

1569 001516 025377 ~ WORD EM14 sSUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 
1570 001520 030626 ~ WORD DH11 sEXPECTD EXPECTD RECEIVD RECEI VD 

1571 *‘or’’ *"AND'' “‘or'' ““AND’* #ERRORS TESTNO 

1572 001522 032352 » WORD DT14 { ADDROR, ADRAND ,DATAOR ,DATAND, ERRCNT ,$TESTN,O 

1373 001524 033551 .WORD DFI4 : 2, 2, 0, 0, i, 0 

1575 ZITEM 15 

1576 001526 025502 .- WORD EM15 sMAIN MEMORY H a OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
1577 001530 030763 » WORD DH15 sCONDITN CONDITN 

1578 *EXPECTD RECEIVD TESTNO ERR PC 

1579 001532 032370 ~ WORD DT15 : CPUEXP, PCPUER, $TESTN, SERRPC,0 

1580 001534 033513 “WORD DF : 0, 0, 0, 0 

1582 SITEM 16 

1583 001536 025575 ~ WORD EM16 sSUMMARY OF DUAL MAPPING ERRORS 

1584 001540 030626 » WORD DH11 sEXPECTD EXPECTD RECEIVD RECEIVD 

1585 *““AND*' ““or"’ #ERRORS TESTNO 

1586 001542 032352 WORD DT14 {ADDROR. ADRAND ,DATAOR ,DATAND, SERRPC ,STESTN,O 

1587 001544 033525 “WORD DF5 . he oe. ee So 
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1588 
1589 001546 
1590 001550 
1591 001552 
1592 001554 
1593 
1594 
1595 001556 
1596 001560 
1597 001562 
1598 001564 
1599 
1600 
1601 001566 
1602 
1603 001570 
1604 001572 
1605 001574 
1606 
1607 
1608 001576 
1609 001600 
1610 001602 
1611 001604 
1612 
1613 
1614 001606 
1615 001610 
1616 001612 
1617 001614 
1618 
1619 
1620 001616 
1621 001620 
1622 001622 
1623 001624 
1624 
1625 
1626 001626 
1627 001630 
1628 001632 
1629 001634 
1630 
1631 
1632 001636 
1633 001640 
1634 001642 
1635 001644 
1636 
1637 
1638 001646 
1639 001650 
1640 001652 
1641 001654 


039513 
026022 
030601 


032324 
033513 


026100 


033513 


026166 


032414 
033513 


026311 
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s ITEM 21 
oW 


sITEM 23 


sITEM 24 


s ITEM 25 


Py 


:NO UNIBUS “We yes EXISTS 


; TESTNO 
i STESIN. SERRPC, 0 


SEQUENCE 28 


{TESTMO’ ERR oC LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 


TESTNO 
:STESIN, »SERRPC ,0 


° 


: INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
;DATA porate THAT INSTRUCTION WAS NOT ABORTED 


;TESTNO ERR 
:STESIN, J SERRPC. im 


° 


sestno’ tha Pe TESTS TRAP DID NOT OCCUR DUE TO ABORT 


:TESTN 
:STESIN, -SERRPC 0 


e 


LMA NOT one d. ary 


; TESTNO 


LMAE XP 
;STESIN, so he -EADRES, EADRS2. 0 


:LMA_FORCE JUMPER BIT NOT ZERO 
LMARCV 


:TESTNO ERR PC 


LMAE XP 


;STESIN, o SERRPC. 2 $REG1,LMAHI ,0 


:LMA_FORCE JUMPER BIT NOT SET 


;TESTNO ERR PC 


LMAEXP LMARCV 


;STESIN, sO tee -$REG1,LMAHI ,0 


LMA ade! BITS INCORRECT 


LMAEXP | ye 


;TESTNO ERR PC 
;STESIN, rt. oSTMPO,SREG 


MARCV 


sFORCE JUMPER BIT dey i TO oeyent MAP REGISTER STATUS TO DEFAULT 


3 TESTNO 


E C__LMAR 
;STESIN, Satis "STHPO-KIPARG. 0 


* e 
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s ITEM 30 


pace 25° 


e 


;KIPARS NOT LOADED PROPERLY 
;TESTNO ERR P 
a ee eee 


PRSEXP PRSRCV 


SEQUENCE 
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1647 001666 
1648 

1649 

1650 

1651 

1636 001666 
1653 001670 
1654 001672 
1655 001674 
1656 

1657 

1658 001676 
1659 001700 
1660 

1661 001702 
1662 001704 
1663 

1664 

1665 001706 
1666 001710 
1667 001712 
1668 001714 
1669 

1670 

1671 001 
1672 001720 
1673 001722 
1674 001724 
1675 

1676 

1677 001726 
1678 001730 
1679 

1680 001732 
1681 001734 
1682 

1683 

1684 001736 
1685 001740 
1686 001742 
1687 001744 
1688 

1689 

1690 001746 
1691 001750 
1692 001752 
1693 001754 
1694 

1695 

1696 001756 
1697 001760 
1698 001762 
1699 001764 
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033563 
026727 
033571 
026776 


031530 


032542 
033551 


033576 


s ITEM 201 


s ITEM 203 
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ER200: 


ITEM 204 
- WOR 


- WORD 
- WORD 
WORD 


2 ITEM 205 





THis i THE STARTING POINT FOR ERROR MESSAGES 

32 HROUGH 377. THEY ARE USED FOR MULTIPLE 

‘ERROR MESSAGES. 

+ THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
TESTN RR PC 


NO 
TEADRES, ——ne ee 0 


A FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
REG Ay NON- ase 


; TESTING CONTNTS TESTNO ERR PC 
;EADRES, EADRS2, STMP3, STESTN,SERRPC ,0 


¢ THE BIT PATTERN Mars 3 THE reve REGISTERS FAILED 
GADRS___PATT EXP RECEVD TESTNO ERR PC 
SEADRS2, STMPO, GREG» SREGS, STESTN, SERRFC 0 


s;UNIBUS DATA PATH COUNT PATTERN FAILURE 
sEXPECTD RECEIVD ADDRSLOAD TESTNO ER 
; WO GTM! RACES -BTES TN SERNPL 8 


MAP RELOCATION DISABLED 


EX IVD __TESTNO ERR PC 
;EADRES, fADRSE. eSTESTN,SERRPC 0 


retry ADDRESSING ERRORS, 
ADDRESS 


DATA PATTERN NOT CORRECT 
SADDRESS EXPCTD RECVED 
sEADRES, ae gree. oSTESTN, SERRPC ,2 


TESTNO ERR PC 


00 EE EO OEE eee 


at tt ‘Fry, REGISTER 0 em eene ss ONE BIT DIFFERENT THAN 17770 
a tee ISTESTN, SERRPC ,0 


i. REGISTER poss TEST DID NOT RESPOND IN DUAL MAPPING TEST 
NO _ERR MAPREGADR 
:STESIN, genre, -EADRES ,0 


Sain edema 4 
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CKKUADO 11/24/44 UBI MAP SEQUENCE 31 
ERROR POINTER TABLE 

1700 SITEM 211 

1701 001766 027320 ~ WORD EM211 ;RELOCATION cokes THE MAP WAS NOT CORRECT, CARRY PROPAGATION 

170 :TEST BEING RUN OVER UNIBUS 

1703 001770 031760 ~ WORD DH211 + CORRECT ERPECTD RECEIVD 

1704 ADDRESS DATA FROM UB TESTNO ERR PC 

1705 001772 032612 .WORD DT211  :EADRES,$REG3,$REG2,$TESTN, SERRPC,0 

1706 001774 033563 -WORD DF201 : 2, 0, 0, 0, 0 

1708 sITEM 212 

1709 001776 027456 ~ WORD EM212 ;MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 

1710 3; TEST BEING RUN OVER UNIBUS 

1711 002000 031760 ~ WORD DH211 * CONDI TN N CONDITN 

1712 *EXPECTD RECEIVD TESTNO ERR PC 

1713 002002 032612 ~ WORD DT211 : CPUEXP ,PCPUER, $TESTN, SERRPC , 0 

Wi 002004 033563 ;WORD DF201 : 0, 0, °0, 0 

1716 s ITEM ~~ 

1717 002006 027611 WORD EM213 ;MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED 

1718 002010 032142 “WORD DH213 ;TESTNO ERR PC REG NO DDWDAT DDWADR 

1719 002012 032640 » WORD DT213 *$TESTN, SERRPC ,.STMPO,$TMP1,$REGS,0 

1720 002014 033513 “WORD DF1 : 0, 0, 0, 0, 6 

1722 s ITEM 214 

1723 002016 027702 » WORD EM214 ;MAP REGISTER DISABLED WHEN DDW = IT SHOULD BE ENABLED 

1724 002020 032142 » WORD DH213 sTESTNO ERR PC REG NO DDWDAT WADR 

1725 002022 032640 ‘ DT213 *$TESTN, SERRPC ,STMPO,STMP1,$REGS, y 

172 033513 DF1 : 0. 0,0. 0, 6 
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SOFTWARE SWITCH REGISTER LOCATION 


SEQUENCE 


1727 -SBTTL SOFTWARE SWITCH REGISTER SMEs, 
1728 002026 .$Y=. sSAVE_ ADDRESS LOCATION 
ire? 000176 -=176 ADDRESS TO SOFTWARE SWITCH REGISTER LOCATION 
1730 000176 000000 $SSWR: <:WORD 0 SLOCATION FOR SOFTWARE SWITCH REGISTER 


1731 002026 .=.$Y ;RETURN TO PREVIOUS ADDRESS LOCATION 


32 


H 3 
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ERROR MESSAGE TYPE OUT ROUTINE 


173 .SBTTL ERROR MESSAGE TYPE OUT ROUTINE 
173 33 RAEEEAAEERAAAEAAAARAAEAREAEEARAAEAAAEKEAAAAERARAKRAAAKEAAKRAKERAEREAEEE 
1734 :* 
1735 * THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 
1736 te THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE (SITEMB) NUMBER 
1737 ie AN S THAT TO INDEX THROUGH | THE ERROR TAB 
1738 je TABLE STARTS AT “‘SERRTB"’ AND HAS FOUR (4) PRINTERS FOR EACH 
1739 te ENTRY, DH’, ‘DT’ OF THE 'EM' POINTS TO THE E 
1740 ie MESSAGE WHICH IS AN ASCIZ STRING. THE "DH' POINTS TO THE DATA 
1741 i HEADER WHICH IS ANOTHER ASCIZ STRING. THE 'DT' POINTS TO THE 
1742 * DATA TABLE WHICH IS A GROUP OF WORDS CONTAINING THE ADDRESSES 
1743 8 OF THE DATA TO BY TYPED. THE FORMAT OF THIS DATA IS 
1744 i* CONTROLLED BY THE 'DF* WHICH IS THE POINTER TO THE DATA FORMAT. 
1745 :* THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 
1746 * THAT CORRESPOND TO DIFFERENT TYPING FORMATS. 
1747 3* 0 16 BIT OCTAL FORMAT 
1748 ie DECIMAL FORMAT 
1749 ie 2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 
1750 :* PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT To LOWER 16 
1751 :* 3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRT 
1752 :* ADDRESS IN KERNEL I=SPA E; 
1753 :* 4 -18 BIT OCTAL FORMAT. DAT A 16 BIT NUMBER THAT 
1754 te WILL BE CONVERTED INTO A Untaus ADDRESS BY LEFT 
1755 i* SHIFTING IT 6 BITS. 
1756 it 5 -16 BIT OCTAL, SUPPRESS LEADING ZEROS 
1757 :* 6 -16 BIT DECIMAL, SUPPRESS SPACES 
1758 * IF YOU SHOULD HAVE A NEED TO JUST TYPE A STRING OF 
1759 :* NUMBERS, SET UP YOUR CODE THIS WAY: 
1760 i* MOV #CONTINUE, sp) E ROVE THE ADFRESS OF THE INSTRUCTION AFTER THE 
1761 3* : JUMP TO THE STACK 
1762 ie MOV RO,-(SP) :SAVE R 
1763 y* MOV R1,-(SP) sAND R1 ON THE STACK 
1764 it mov DTNAME .RO SMOVE THE ADDRESS OF THE DATA TABLE TO RO 
1765 i TYPDAT sSUBROUTINE IDENTIFIED IN CENTER OF THIS ROUTINE 
1766 z* CONTINUE: NEXT INSTRUCTION 
1767 ie AT A CONVENIENT SPOT, ALOCATE THE FOLLOWING: 
1768 S*DTNAME: .WORD DTLIST,DFNAME ; IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
1768 ;sDFNAME: -BYTE N,N,NLN,ETC. | : CONSTRUCT YOUR OWN DATA FORMAT LINE 
ze 
ca) :*DTLIST: VAR1,VAR2,VAR3,VAR4,....,$CRLF,0 :VARIABLES YOU WANT TYPED 
1773 ELLE ee ae NT eT Te nN RTT IN 
1774 002026 010046 uo MOV RO,-(KSP) ;SAVE RO ON STACK 
1775 002030 005000 CLR RO [CLEAR RO 
1776 002032 113700 001112 MOVB $ITEMB,RO ‘PUT ITEM NUMBER IN 
1777 002036 001004 BNE 1$ ‘BRANCH IF IT IS NON-ZERO 
1778 002040 013746 001114 MOV SERRPC,-(KSP) :PUT ERROR PC ON STACK FOR TYPING 
1779 002044 104402 TYPOC ;TYPE FAILING PC 
1780 002046 000565 13$ O RETURN 
1781 002050 122700 000177 1$: CMPB ss #177,,RO + SEE IF THIS IS THE PWR MON BIT ERROR ;DPMO01 
178 002054 001003 BNE 0$ [BRANCH IF NOT TO CALL ERR 
1783 002056 012700 002432 MOV #PMBE CW,RO ;MOVE ADDRESS OF SPECIAL DATA HEADER TO RO 
1784 002062 000451 BR 210$ CH TO CALL ERROR 
1785 002064 905500 200$: DEC RO tADJ UST ITEM NUMBER 9 BE, BE A. POINTER 
1786 00 2027 000003 ASH #3,RO LEFT SHIFT ITEM NO. 
1787 002072 100041 BPL ‘BRANCH TEM NUMBER rs Ess HAN 200 
1788 002074 023727 001320 000020 CMP ERRCNT #20 t3* SEE tf 0 (OCTAL) ERRORS save PRINTED 


3 
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ERROR MESSAGE TYPE OUT ROUTINE 


1789 002102 002410 BLT 40$ :* BRANCH TO PRINT THE ERROR IF LESS 
1790 002104 001404 BEQ 41$ 3* BRANCH TO TYPE NO MORE DATA LINES IF EQUAL 
1791 002106 062766 000004 000002 ADD #4,2(KSP) t:* CORRECT PC RETURN TO RETURN AFTER <CRLF> PRINT 
1792 002114 000542 BR 13$ t:* GO TO RETURN 

1793 002116 104401 006417 41$: TYPE NOMORE s:% TYPE MESSAGE TO ANNOUNCE NO MORE PRINTING OF ERRORS 
1794 002122 000537 BR 13$ i:* GO TOR 

1795 002124 022737 000001 001320 40$: CMP #1, ERRCNT sis SEE IF rats IS THE FIRST ERROR 
1796 002132 001415 BEQ 21$ * BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 
1797 002134 032777 000200 176774 BIT #SW7,aSWR :SEE IF SWITCH 7 IS UP 

1798 002142 001404 BEQ sBRANCH IF SWITCH NOT UP AND TYPE DATA 
1799 002144 062766 000004 000002 ADD #4,2(KSP) :SKIP ‘TYPE ,$CRLF* IF SW 7 IS UP 
1800 Z INHIBIT MULTIPLE ERROR TYPEOUTS 

1801 002152 000523 BR 13$ sBRANCH TO EXIT 

1802 002154 042700 177400 20$: BIC #177400,RO :CLEAR UPPER BYTE OF RO 

1803 002160 062700 001672 ADD #ER200+4 ,RO [POINT TO DATA TABLE ENTRY 

1804 002164 000426 BR 5$ 260 TYPE DATA TABLE 

1805 002166 042700 177000 21$: ~—«BIC #177000,RO CLEAR UPPER BYTE OF RO 

1806 002172 062700 000300 ADD #<ER200-SERRTB>, sho ADD DIFFERENCE BETWEEN 

1808 ::GET POINTER TO ERROR MESSAGE AND TYPE IT 
1809 :IF THE POINTER IS NOT ZERO 

1810 002176 104401 001223 22$: TYPE ,$CRLF TYPE A <CRLF> 

1811 002202 062700 001366 ADD #SERRTB RO D BASE OF ERROR TABLE 

1812 002206 012037 002216 210$: MOV )+,28 M MESSAGE POINTER IN TYPE STATEMENT 
1813 002212 001404 BEQ $$ CH IF NO ERROR MESSAGE 

1814 002214 104401 TYPE TYPE ERROR MESSAGE 

1815 002216 000000 2s: .WORD 0 POINTER TO ERROR MESSAGE 

1816 002220 104401 001223 TYPE  ,$CRLF CRL 

1817 ::GET THE POINTER TO THE DATA HEADER AND 

1818 :TYPE IT IF THE POINTER IS NOT 

1819 002224 012037 002234 3$: MOV (RO)+, 48° ;PUT HEADER POINTER IN TYPE STATEMENT 
1820 002230 001404 BEQ 5$ ‘BRANCH IF NO DATA HEADER 

1821 002232 104401 TYPE ‘TYPE THE DATA HEADER 

1822 002234 000000 4$: .WORD 0 POINT ER TO DATA HEADER 

1823 002236 104401 001223 TYPE  ,$CRLF 

1824 : THIS 18" THE START OF THE DATA OUTPUT IF THE 
1825 : DATA POINTER IS NOT ZERO. RO POINTS TO THE 
1826 A FORMAT, R1 POINTS TO THE ADDRESS OF 
1827 THE DATA WORDS. 

1828 002242 010146 5$: MOV R1 ail * :SAVE R1 ON THE STACK 

1829 002244 TYPDAT=. 

1830 002244 012001 MOV (RO)+,R1 :PUT DATA TABLE POINTER IN R1 

1831 002246 001464 BEQ 12$ [BRANCH IF NO DATA TABLE 

1832 002250 012000 MOV (RO) +,RO :PICK UP DATA FORMAT POINTER 

1833 002252 105710 6$: TSTB ~—s-_ (RO :1$ THIS WORD OCTAL 

1834 002254 001003 BNE 7$ sBRANCH IF NOT 16-BIT OCTAL 

1835 ::WORD I$ 16 BIT OCTAL FORMAT (DF = 0) 

1836 002256 013146 MOV a(R1)+,=(KSP) :PUSH NEXT 16-BIT WORD ON STACK 

1837 002260 104402 TYPOC [TYPE THE WORD ON STACK AS 16 BIT OCTAL 
1838 002262 000451 11$ ‘GET READY FOR NEXT WORD 

1839 002264 122710 000001 7$: CMPBso#'1, (RO) [1S THE WORD DECIMAL 

1840 002270 001003 BNE 8$ “BRANCH IF NOT DECIMAL 

1841 z:WORD IS DECIMAL FORMAT (DF = 1) 

184¢ 002272 013146 @(R1)+,-(KSP) | ;=PUSH NEXT 16-BIT WORD ON STACK 

1843 002274 104405 TYPDS ZTYPE THE WORD ON STACK AS DECIMAL 
1844 002276 000443 11$ [GET READY FOR NEXT WORD 

1845 002 122710 000002 8$: CMPB Ss #2, (RO) t1S WORD 22-BIT PHYSICAL ADDRESS 
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ERROR MESSAGE TYPE OUT ROUTINE 


SEQUENCE 35 


1846 002304 001012 BNE 9$ H IF NOT 22-B1T PHYSICAL ADDR 
1847 : WORD 182 eel! PHYSICAL FORMAT (DF = 2) 

1848 002306 012146 MOV (R1)+,=(KSP) NEX T 16-BIT WORD ON STACK 

1849 002310 004737 023712 JSR PC,$D820 T NUMBER TO OCTAL ASCIZ 

1850 002314 062716 000003 ADD #3. (KSP) : mY GANT 

1851 002320 012637 002326 MOV (KSP) +, 308 [PUT POINTER AFTER "TYPE’ CALL 

185¢ 002324 104401 TYPE :TYPE ASCIZ S$ 

1853 002326 000000 30S: WORD 0 ‘WORD HOLDS SOINTER TO ASCIZ STRING 

1854 002330 000426 R 11$ [GET READY FOR NEXT WORD 

1855 002332 122710 000003 9$: CMPB «#3, (RO) SIS THIS A 16-BIT VIRTUAL ADDRESS 

1856 002336 001004 BNE 10$ CH IF NOT 16-BIT VIRT. ADDR. 

1857 : WORD 18 22-BIT VIRTUAL ADDRESS FORMAT 

1858 ::KERNEL I-SPACE ASSUMED. (DF = 3) 

1859 002340 013146 MOV a(R1). ~(KSP) :PUSH NEXT 16-BIT WORD ON STA 

1860 002342 004737 002542 JSR C, TYPVAD 360 TYPE 22-BIT ADDRESS FROM {6-BIT V.A. 
1861 002346 000417 BR 1 T READY FOR NEXT WORD 

1862 002350 122710 000004 10$:  CMPB #4, (RO) :1S THIS A 16 BIT NUMBER TO BE CONVERTED TO 
1863 [AN 18 BIT UNIBUS ADDRESS LEFT SHIFTED 6? 
1864 002354 001003 BNE 100$ ‘SKIP OVER FORMAT T 4 ROUTI NE IF NOT 

1865 ::WORD 1S FORMAT 4. WORD IS A UNIBUS 

1866 ::ADDRESS OUTPUT WILL OBE A eeBITS WORD LEFT SHIFTED 6. 
1868 002356 004737 002650 JSR PC,UBADDR :CONVERT TO 18-BIT UNIBUS ADDR AND TYPE 
1869 002362 000411 BR [GET READY FOR NEXT WORD 

1870 002364 122710 000005 100$: CMPB ¥#5,(RO) 31S THIS A 16 BIT NUMBER TO BE PRINTED AS 
1871 SOCTAL WITH LEADING ZEROS SUPPRESSED? 

1872 002370 001004 BNE 110$ ‘BRANCH TO DECIMAL LEADING SPACES SUPPRESS ROUTINE 
187 : ;:WORD IS FORMAT 5. DATA WOR 

1874 PRINTED IN OCTAL. LEADING ZEROS SUPPRESSED. 

1875 002372 013146 V @(R1)+,-(KSP) :PUSH NEXT’ 16-BIT WORD ON STA 

1876 002374 104403 TYPOS 'GO TYPE OCTAL SUPPRESS LEADING ZEROS 

1877 002376 006 .BYTE 6 [TYPE 6 DIGIT 

1878 002377 000 "BYTE 0 SUPPRESS LEADING ZEROS 

1879 002400 000402 11$ GET READY FOR NEXT WORD 

1880 002402 110$: j WORD 18 FORMAT 6. DATA WORD IS TO BE 

1881 PRINTED IN DECIMAL, LEADING SPACES SUPPRESSED. 
1882 002402 013146 MOV a(R1)+,-(kSP) 3PUSH NEXT 16-BIT WORD ON STACK 

1883 002404 104405 TYPDS 

1884 002406 005200 11$: INC 0 :POINT TO NEXT FORMAT BYTE 

1885 002410 104401 002426 TYPE ,32$ [TYPE TWO SPACES 

1886 002414 00571 TST (R1) tIS THERE ANOTHER WORD? 

1887 002416 001315 BNE 6$ ‘BRANCH IF NOT ALL DONE 

1888 002420 012601 12$: MOV (KSP)+,R1 SRESTORE R1 

1889 0024 912600 13$: MOV (KSP)+-RO SRESTORE RO 

1890 002424 00020 RTS PC [RETURN TO ERROR ROUTINE 

1891 002426 040 040 000 32S: -ASCIZ ; 9 [TWO SPACES 

1893 002432 002442 002476 002526 PMBECW: .WORD PMBECM,PMBECH,PMBECD.PMBECF 74 WORDS POINTING TO BELOW 
1894 002442 120 117 127 PMBECM: .ASCIZ ?POWER MONITOR BIT FOUND SET? 

1895 002476 124 105 123 PMBECH: . Sc12 +TESTNO WE ERR PC CPUERR? 

1897 002526 020020 001114 020552 PMBECD: .WORD $TESTN,SERRPC,CPSAVE.0 

1898 0025 000 000 000 PMBECF: .BYTE 0,0.0,6 


ccalisnaanenaiiised 
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CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 


1899 . SBTTL CONVERT 16-BIT VIRTUAL ADDRESS TC 22-BIT PHYSICAL ADDRESS 


FARRAR EEEEEEEEREEKEEEEKEEREREKRERRREEREEREREREREEREEREE 


j 


1901 ti 
1902 ie THIS ROUTINE IS CALLED BY A "JSR PC' AFTER THE VIRTUAL ADDRESS 
1903 ie IS PUSHED ON THE KERNEL STACK. THE V.A. IS THEN LOADED, INTO 
1904 te R1 AND THE UPPER 3 BITS ARE SHIFTED INTO RO TO SELECT THE 
1905 te CORRECT KERNEL SPACE PAR. THE LOWER 12 BITS OF THE VIRTUAL 
1906 te ADDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
1907 be AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 
1908 it TO ASCIZ AND TYPED. 
**® 
1910 Tare ote aeaceasncamammaget 9g anna 
1911 002542 104411 TYPVAD: SAVREG ;SAVE ALL REGISTERS 
1912 002544 016601 000002 MOV 2(KSP) ,R1 ‘PUT VIRTUAL ADDR I 
1913 002550 005000 CLR RO SCLEAR RO FOR CALCULATIONS 
1914 002552 073027 000003 ASHC = #3, RO “LEFT SHIFT RO,R1 3 PLACES 
1915 002556 006300 ASL RO {LEFT SHIFT RO’ ONE MORE PLACE 
1916 002560 006001 ROR R1 RIGHT SHIFT RISO OFFSET 1g, CORRECT 
1917 002562 006001 ROR R1 SRIGHT SHIFT R1 
1918 002564 006001 ROR R1 :RIGHT SHIFT 4 
1919 002566 062700 172340 ADD #KIPARO,RO [FORM DESIRED PAR ADDR IN RO 
1920 002572 011003 MOV (RO) .R3 [PUT CONTENTS OF PAR IN R 
1921 002574 005002 CLR R2 [CLEAR R2 FOR PHYSICAL pADDR CALCULATIONS 
1922 002576 073227 000006 ASHC #6,R2 [LEFT SHIFT <R2,R3> 6 PLACES 
1923 002602 060103 ADD R1.R3 [ADD OFFSET IN R1 TO Cease IN R3 
1924 002604 005502 ADC R2 [ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 
1925 002606 010237 001230 MOV R2,PADRSH [PUT UPPER 6 BITS OF ADDR IN CORE 
1926 002612 010337 001226 MOV R3.PADRSL :PUT LOWER 16 BITS OF ADDR IN’ CORE 
1927 002616 012746 001226 MOV #PADRSL,-(KSP) PUT POINTER TO LOWER 16 BITS ON STACK 
1928 002622 004737 023712 JSR PC, $DB20 [CONVERT NUMBER TO OCTAL ASCIZ 
1929 002626 062716 000003 ADD #3. (KSP) [ONLY TYPE 8 DIGIT 
1930 002632 012637 002640 MOV (KSP) +, 3$ :PUT POINTER AFTER TYPE INST 
1931 002636 104401 TYPE E THE 22-BIT VIRTUAL ADDRESS 
1932 002640 000000 3$: .WORD 0 THIS WORD HOLDS THE POINTER TO 
1933 <THE ASCIZ STRING 
1934 002642 104412 RESREG TRESTORE ALL THE REGISTERS 
1935 002644 012616 MOV (KSP)+,(KSP) | :LEAVE ONLY RETURN ADDR ON STACK 
1936 002646 000207 RTS PC [RETURN TO ERROR HANDLER 
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=X 


2 
012616 
000207 





000002 
000006 


002716 
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SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYP 


(BADDR: SAVREG 
MOV 


SEQUENCE 


. SBTTL SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 
eritiitti iii ti itis iiiiiiligiiielitii iii ii titi i iy 
SATHIS SUBROUTINE IS USED TO CONVERT THE A WORD ripe 

:#0N THE STACK INTO A ee ADDRESS AND TYPE IT AS A 

3*6 DIGIT NUMBER. IT USES R1_& RO AND LEAVES 

7*ALL OTHER REGISTERS UNCHANGED. 


Petit iti ii lisisi titi atti iieis iii iii ii iii iii iii iii irri rir 
2(KSP) ,R1 ;LOAD 16 BIT ADDRESS INTO R1 
RO :C R ULATI 


CL 

ASHC #6,R0 

MOV R1,PADRSL 

MOV RO,PADRSH 3PUT 

MOV #PADRSL,-(KSP) ;PUSH POINTER TO WORDS ON STACK 
PC,$DB20 7J TO CON ROUT INE 


JSR . : VERT 
ADD #5, (KSP) ONLY USE LOWER 6 CHARS. 
Tobe (KSP)+,3$ ;PUT POINTER AFTER TYPE CALL. 
3$: ae 0 sHOLDS POINTER TO FIRST CHAR. 
Vv (KSP) +, (KSP) s;LEAVE ONLY RETURN ADDRESS GN STACK 
RTS PC sRETURN TO ERROR TYPE ROUTINE. 


| 


CKKUADO 11/24/44 UBI MAP 
TURN OFF AND SAVE T=BIT 


1979 002752 


000020 
032766 
001406 
016637 
042766 
000006 
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000020 000002 


G00002 001346 
000020 000002 


.SBTTL TURN OFF AND SAVE T-BIT 
fF FARA AREAAAAAAAARAREAAEAEAEEEARARARARAAARAARARERRAEEEAREREEKEREEE 
FF AMARA AREAAAAAAEREERAEAEAAAARERAAAAAARERAAAEREREHERREAEREEEE 
3* **SUBROUTINES UNIQUE TO THIS PROGRAM** 


SERRA AAAAARAARAEAAAAAEEAAAEERAAARAERAAAARARAAAREARAERRERERERREREKE 


SRAAEHARARAAAAAAAAAAAAERAREAEAAAAAAREAAERARARAEHERRAREREKEKEREREE 


ee 
SRAAERAAAAAAEAAAAAAAAAAAAAEAAAARARAAAARAAAKEAEAAERERAEREREEAAEEEEEE 


-® 

;* THIS TRAP aa ade’ IS Seale BY THE TRAP CALL ‘TBITO’. IT IS 
s¢ USED TO vo. OFF THE T-BIT IF IT IS ON. THE PROCESSOR STATUS 
be IS SAVED IN ‘‘OLDPSW'* SO THAT THE T-BIT CAN BE RESTORED TO ITS 
se PREVIOUS STATUS WHEN CONDITIONS WARRANT. 

** 


SRRARAAAAAAAAEAARAAARARETERERERAAAARARAAARERRERAERREKREKRERRAREREEEE 


TBIT=BIT4 :T-BIT IS BITO4 IN PROC. STATUS 
TBITOF: BIT #TBIT,2(KSP) 31S THE T-BIT ON? 
BEQ 1$ BRANCH TO EXIT IF IT IS NOT 


ON 

MOV 2(KSP),OLDPSW  :SAVE OLD PSwW FOR RESTORING T BIT 
BIC #TBIT,2(KSP) [CLEAR T BIT 

1$: RTT *RETURN TO PROGRAM 
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RESTORE T-BIT TO ITS PREVIOUS CONDITION 


1980 -SBTTL RESTORE T-BIT TO ITS PREVIOUS CONDITION | 
1981 33 RERRAAAAERAAAAERAERAAAEREREKAAAAAAARARARAAAAEARAEEAAERAARAEREEEEE 
1982 :* 
1983 ;* THIS TRAP ROUTINE CAN BE REACHED A! THE TRAP CALL ‘TBITR'. IT IS 
1984 bs USED TO ite tea THE T-BIT AFTER A PARTICULAR TEST THAT CANNOT 
1985 :* BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
1986 ge IN  OLDPSU'" BY 4 sebicil REPLACES THE PS ON THE STACK WITH IT 
Lb 44 i, AND DOES AN ‘RTT 
-* 
1989 Sc seelenvabladdslionediabnmeeaneatetaaaecinenaaamniaadien 2 
1990 002754 013766 001346 000002 TBITRE: MOV OLDPSW,2(KSP) ;PUT OLD PSW ON STACK - 
1991 002762 042737 000020 007346 Bic #TBIT ,OLDPSW a en a IN she the 
1992 T JT WON'T BE TURNED ON BY ACCIDENT 
1993 002770 000006 RTT sRETURN TO PROGRAM AND INHIBIT T-BIT TRAP AFTER THIS INSTRUCTION 
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SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


1994 


mrorny 


170200 


000040 
020000 
170400 


MACRO M1113 26-OCT-81 11:08 PAGE 8, 


172516 


- SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


FARRAR RAEERRAEEERAEEREEEEERERERREREERERREREEEREEREREREREEERRREE 


THIS SUBROUTINE CLEARS ALL OF THE MAP a ty al ae ven IS 


4 
:* 
ind DISABLED BY LOADING THE ADDRESS “ MAPLOO I 
:* CLEARING THE vesteree POINTED TO BY R3 UNTIL "3" reat i ABOVE 
se MAPH37. IF MAPPING IS ENABLED, ALL REGISTERS EXCEPT MAPL1 
hed IS CLEARED. THE LOWER WORD OF MAPL1 RECEIVES 20000. THIS IS 
sf SO APT CAN PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 
** 
UT ITIT IIIT ITT ITT titi iii tiiiiiiiiiitiiiiiiiiiiitiiiiiii titi ty 
CLRMAP: MOV #MAPLO,R3 sPUT FIRST MAP ADDR IN R3 

CLR (R3)+ sCLEAR MAPLO 

CLR (R3)+ SCLEAR MAPLO+2 

BIT #B1TS ,.MMR3 3SEE 4 MAPPING IS ENABLED 

BEQ BRANCH TO er ALL IF NOT ENABLED 

MOV #20000, (R3)+ LOAD 20000 INTO MAPL1 FOR POSSIBLE APT USE 
1$ CLR R3)+ CLEAR MAP REGIST 

CMP AMAPH37+2 ,R3 7SEE IF LAST ag IS_IN R3 

BNE 1$ BRANCH iF NOT DONE YET 

RTS PC RETURN TO MAIN PROGRAM 


SEQUENCE 40 





TL 
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2015 
2016 
2017 
2018 
2019 
2020 
2021 
202 
202 
2024 003030 005227 
2025 003032 177777 
026 003034 001403 
2027 003036 005237 020014 
2028 003042 000000 
2009 
2030 
2031 003044 012637 001342 
2032 003050 012637 001344 
2033 003054 105737 007136 
2034 003060 001406 
2035 Ou 005237 001330 
2036 003066 005737 001326 
2037 003072 001435 
38 003074 000442 
2039 003076 015737 177766 
003104 013737 001330 
2041 003112 023737 001330 
2042 003120 001405 
2043 003122 012737 177777 
2044 003130 104001 
2045 003132 23 
2046 003134 105737 007136 
2047 003140 001403 
2048 003142 005237 001320 
2049 003146 000415 
2050 003150 022737 000020 
2051 003156 001411 
2052 003160 010046 
2053 003162 013746 172356 
2054 003166 004737 003674 
2055 003172 012737 177777 
56 003200 104201 _ 
2097 003202 12737 177777 
2058 003210 013746 001344 
2059 003214 013746 001342 
2060 003220 000006 








001330 
177766 
001326 


003032 


001326 


003032 
003032 


MACRO M1113 a's OI 11:08 FAGE gs * 
SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTER 


SEQUENCE 


. SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


SRAERERERAEREEAEREREREREEEEEREEAARAEAEREARAERREEEREEKEREREREREREEKERE 


ce SSS DB Bee 


Re Se Be Oe Be Be Oe oe 


10$: 


2$: 


25$: 


3$: 


4$: 


THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 
REFERENCE TO A MAPPING REGISTER TIMED OUT 


KEEPS A ‘LO 
TIMES OUT. 


TIMEOUT: INC 
TOFLAG: 


WORD 


(KSP) + ,OLDPC 
(KSP) + ,OLDPS 
CPUTYP 

1$ 

PCPUER 
CPUEXP 

3$ 


4$ 

CPUERR ,PCPUER 
PCPUER , CPUERR 
* he cecthaaeel 


#-1,TOFLAG 


ag 
ERRCNT 
#TIMOUT , CPUEXP 


#=1, TOFLAG 
OLDPS ,~(KSP) 
OLDPC ,-(KSP) 


SMSGTY 
31 HAVE ENTERED 


LAG IS 

INDICATE TO APT A FAT 
iIND ROUTINE BEFORE I 
HE SECOND ENTRY ADDR 


7TH 
EIRST 


SAVE 
SAVE 


ERROR CONDITION I 
A Fagg ESS 


SEE IF THIS IS AN 1 


; BRANCH 


CONTINU 


;BRAN EXIT IF T 
sey CPU ERROR REGISTER 


1/4 
BRANCH TO E IF IT IS 
sae hens tne TO SHOW A TIMEOUT OCCURED 


2CL CPU ERROR REGISTER 

3SEE “ir EXPECTED w eit CAME UP. 
BRANCH IF IT WAS A TIMEOUT 

sRESET ONE TIME GATE 

;NOT THE CORRECT CPU TRAP THROUGH 4 


TO EXIT 
:IS Ley ‘g 11/24? 
COUNT THIS AS A TIMEOUT 
TO EXIT 


360 
sSEE IF A TIMEOUT WAS EXPECTED 
TO EXIT THIS ROUTINE IF 


PUT 


ACK 


G 


ON THE UNIBUS. IT 
OGICAL AND’’ AND A “LOGICAL OR"’ OF EACH ADDRESS THAT 


SRERRERARARERRAERE EEE EERE RARER RRRERERERRAERRERE ERT E REE 
: INCREMENT ONE TIME GATE 
:0N an. a; TANCE FLA 


ZERO 
L Forte OCCURE 


41 


D 
SHED eat atar THE FIRST ERROR. 
HE STACK AND 


IN 
SS IS ONT H 
S PROBABLY STILL LOCKED UP. 


EXPECTED 
i. WAS EXPECTED 


CH IT WAS 
:PUT VIRTUAL ware Be ON STACK FOR ADREXT SUBROUTINE USE 
PAR ON ST FOR ADREXT USE 


SUBROUTINE U 


;GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 


;RESET 
RESET 


RESTORE OLD PSWw 
PUSH RETURN ADDRESS BACK ON THE STACK 
;RETURN TO THE TEST 





ONE TIME GATE 
3 THE ee ee REGISTERS TIMED OUT WHEN READ 
ONE TIME GATE 





& 
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CPU TRAP HANDLER ROUTINES 


2061 -SBTTL CPU TRAP HANDLER ROUTINES 
206 ERR REAR EEREREE EEE EEE EREERERREREEEERERRERREREEREEEREREE 
206 th **TRAP HANDLING ROUTINES** 
2064 SERRA RARE REE EE EER EERE RARER EERE EEREREREEREREREEER 
5 
soee SERRE RARER ERE EEEE EERE REERRRERRERERRRRREREREEEEREREREE EEE 
2067 :* 
2068 se THIS SUBROUTINE WILL eat! ALL CPU TRAPS AND ABORTS, a ates 
2069 id “ERRVEC’’ (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 
2070 7 a BEFORE THE FIRST HAS BEEN PROCESSED A HALT IS EXECUTED. 
2071 39 IF THE WORD °C IS ZERO, NO TRAP WAS EXPECTED AND AN 
2072 7* UNEXPECTED +) MESSAGE IS GIVEN. IF THE WORD ‘CPUEXP" IS 
2073 :* NOT ZERO THEN THE CPU ERROR REGISTER *CPUERR’ IS COMPARED WITH 
2074 7* *CPUEXP’ TO SEE IF THE PROPER CONDITION OCCURRED. ‘PCPUER' CAN 
2075 :* BE USED AS A_FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 
sone :* IS LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 
:% 
2078 PETTITT T TIT T ITT TTT itii titi iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiit 
2079 003222 005227 CPUER: INC (PC)+ sMAKE FLAG ZERO IF Ag iy + TIME 
2080 003224 177777 CPFLAG: .WORD = :NEGATI VE ONE FOR A G 
2081 003226 001403 BEQ 10$ ;BRANCH IF FIRST TIME IN 
2082 003230 005237 020014 INC SMSGTY INDICATE TO APT _A FATAL ERROR OCCURED 
000 HALT HAVE ENTERED THIS ROUTINE BEFORE 


2083 003234 000 *] F 

2084 i FINISHED REPORTING THE FIRST ERROR. THE SECOND ENTRY ADDRESS IS ON 
HE STACK, AND THE FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 

ids: MOV (KSP)+,0 :$ E OF LOOP 


2086 003236 012637 001342 +, OLDPC sSAVE RETURN ADDRESS IN CAS 
2087 003242 012637 001344 Vv (KSP) + ,OLDPS SAVE OLD PSW IN CASE 
2088 003246 013737 177766 001330 MOV CPUERR,PCPUER ;SAVE CPU ERROR REGIST 
2089 003254 013737 001342 001340 MOV OLDPC ,BADPC zSAVE PC+2 AT TIME OF ABOR 
003262 005737 001326 TST CPUEXP SEE IF ANY CONDITION WAS EXPECTED 
2091 003266 001414 BEQ 1$ BRANCH IF NO TRAP WAS EXPECTED 
2092 003270 105737 007136 TSTB CPUTYP sSEE IF THIS WAS AN 11/44 
2093 003274 001016 BNE : CH TO CONTINUE IF AN 11/24 
003276 023737 001330 001326 CMP PCPUER,CPUEXP ;SEE IF EXPECTED ERROR OCCURED 
2095 003304 001417 BEQ $ sBRANCH IF ERROR CODES MATCH 
003306 012737 177777 003224 MOV #-1,CPFLAG sMAKE FLAG NEGATIVE ONE oe NEXT TIME 
2097 003314 104001 ERROR +1 NOT THE CORRECT CPU TRAP THROUGH 4 
2098 003316 Cogs is BR 3$ 3SKIP NEXT INSTRUCTION 
2099 003320 012737 177777 003224 1$: MOV #-1,CPFLAG sMAKE FLAG NEGATIVE ONE FOR NEXT TIME 
2100 thes doaens ERROR +2 UNEXPECTED CPU TRAP THROUGH 4 
2101 0033 00040 BR 3$ :SKIP_NEXT INSTRUCTION 
2102 003332 005237 1320 2s: INC ERRCNT : INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 
2103 003336 013737 1326 001330 MOV CPUEXP,PCPUER ;PUT EXPECTED CONTENTS IN PCPUER 
2104 003344 Oiee ss 177777 003224 35: MOV #1, CPFLAG sMAKE FLAG NEGATIVE ONE FOR NEXT TIME 
2105 003352 013737 001330 177766 MOV PCPUER,CPUERR ;CLEAR CPU ERROR REGISTER 
2106 003360 013746 001344 MOV OLDPS ,-(KSP) PUSH OLD PSW BACK ON STACK 
2107 003364 013746 001342 MOV OLDPC ,-(KSP) PUSH RETURN ADDRESS BACK ON STACK 
2108 003370 000006 RTT ;RETURN FROM INTERRUPT OR ABORT 


a Cee 


4 
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MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


2109 - SBTTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 
2110 {RRRRARERERR AREER REE R EERE RARER EERE REE EE 
2111 it 
sii§ :* THIS Say with HANDLE ALL SPURIOUS MEMORY eg gt TRAPS 
211 s® AND ABOR WILL REPORT THE CONDITION OF ALL_THE MEMORY 
2114 7* MANAGEMENT STATUS REGISTERS, AND THEN RETURN TO THE TEST AND 
$112 3* TRY TO CONTINUE RUNNING. 
** 
2117 *: eee mete eee ee aed! dias tues ie tee tae 
2118 003372 005227 TRAP: INC (PC)+ MAKE FLAG ZERO IF FIRST TIME 
2119 003374 177777 MMFLAG: .WORD <1 3FLAG sHouLD BE NEG ONE 
2120 003376 001403 BEQ 10$ BRANCH IF FIRST TIME INTO ROUTINE 
2121 003400 005237 020014 INC ye! ; INDICATE TO APT A FATAL ERROR OCCURED 
2122 003404 000000 HALT 31 HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE 
2123 ;FIRST ERROR. THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
2124 ; CONDITION IS ue STILL LOCKED UP . 
2125 003406 011637 001340 10S: MOV SP) ,BADPC ;SAVE PC_AT TIME OF ABORT OR TRAP 
gisé 003412 012637 001342 MOV (KSP) + OLDPC SAVE RETURN ADDRESS IN CASE OF LOOP 
2127 003416 012637 001344 MOV (KSP)+,OLDPS SAVE OLD PSW IN CASE OF LOOP 
2128 003422 013737 177572 001350 MOV MMRO , PAMRO zSAVE STAT pith de: 
2129 003430 013737 177574 001352 MOV MMR1,PMMR1 sSAVE AUTO gg 
2130 003436 013737 177576 001354 MOV - oPMMR2 sSAVE _VIRT ADDRESS REGISTER 
2131 003444 104003 ERROR UNEXPECTED M.M. ABORT 
2132 003446 042737 177776 177572 18: BIC #177776, MMRO :CLEAR ALL BITS EXCEPT 0 
2133 003454 012737 177777 003374 MOV #-1 .MMFLAG RESTORE A NEGATIVE ONE TO FLAG 
2134 003462 013746 001344 MOV OLDS ,~(KSP) PUSH OLD PSW ONTO STACK 
2135 003466 013746 001342 MOV OLDPC ,=(KSP) PUSH RETURN ADDRESS ON STACK 
2136 003472 000006 RTT ;RETURN TO MAIN PROGRAM 





| 
ananeudl 
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SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 


oizf » SBTTL SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 


1 ie RRERRRAEREKREREAAARERAEEEEAEAERAAEAAAAARKEAAKEEAREERERAREKEERREREEE 

2139 ; 
2140 ie THIS SUBROUTINE CLEARS A TEST LOCATION. LOADS THE LOCATION USING 

2141 ze THE MAP REGISTER, AND DETERMINES IF THE LOCATION WAS LOADED. IF 

e14e ie IT WAS, RETURN 18 NORMAL 10 THE TEST. IF NOT. THE PC ON THE 
Sica ;* STACK IS UPDATED BY 2 AND THEN A RETURN IS nT IH 

** 

2145 ° : REREAREEAKEREAAEERAEKEAAEAEEAEEEAERAKAEAAEKEREAKRARRAEREKREARERAKRRAEAEREREE 
2146 003474 005237 001174 TSTLoc: INC $TMPO ; INCREMENT REGISTER COUNTER 
2147 003500 005737 005772 TST —- FLOATR SEE IF BIT 13 OF FLOATR IS SET 
2148 003504 100011 BPL 1$ BRANCH IF STILL PLUS 
2149 003506 022705 020102 CMP 86s WSDDW1,R5 3SEE IF R5 1s POINTING TO UPPER DDW 
2150 003512 001417 BEQ NEXT CH IF SO = ALL 
2151 003514 012705 020102 MOV #SDDW1_R5 [MOVE ADDRESS OF DWT TO RS AND 
2152 003520 012737 000001 005772 Mov —-#BITO, FLOATR RESET BIT 0 IN FLOATR 
2153 003526 000411 BR NEXT BRANCH OVER ASL 
2134 003950 0032e7 1$: INC (PC)+ HINCREMENT NEXT LOCATION FOR FIRST TIME THROUGH CHECK 
2155 003532 177777 FTTHRU: .WORD =1 FIRST TIME ENTRANCE FLAG 
2156 003534 001004 BNE 1$ BRANCH IF NOT FIRST TIME 
2157 003536 012737 000001 005772 MOV  § #BITO.FLOATR  ;MOVE BIT 0 TO LOCATION FLOATR 
2158 003544 00040 BR NEXT BRANCH OVER THE ASL 
2159 003546 006337 005772 1$: ASL _—-FLOATR ROTATE THE TEST BIT TO THE LEFT 
2160 003552 005037 037776 NEXT: CLR 37776 CLEAR TEST LOCATION 
2161 003556 005037 001330 CLR PCPUER :CLEAR ERROR LOCATION 
2162 003562 010210 MOV RG, (RO? TO LOAD TEST CELL THROUGH MAP 
2163 003564 023702 037776 CMP —- 37776, R2 {SEE IF. TEST LOCATION WAS LOADED 
2164 003570 001414 BEQ BRANCH IF IT WAS LOADED 
2165 003572 004737 005076 JSR PC, CHKLMA G0 SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
2166 003576 177736 177734 -WORD LMAHI,LMALOW ADDRESSES OF LMA REGISTERS 
2167 003602 000407 BR 2$ ; RETURN Is 4 
2168 003604 005737 001330 TST _ PCPUER SEE IF A TIMEOUT OCCURED 
2169 003610 00140 BEQSsté‘é‘dgTSS {BRANCH OVER SPECIAL STACK PUSH IF NOT 
2170 003612 013743 001174 MOV —- $TMPO, =(R3) PUSH REGISTER NUMBER THAT TIMED OUT ON SPECIAL ST*CK 
2171 003616 062716 000002 i$: ADD —_ #2, (SP) CORRECT PC RETURN FOR LOAD FAILURE INDICATION 
2172 003622 000207 2s: RTS ~—s-_ PC RETURN FROM THIS SUBROUTINE 


4 
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SUBROUTINE TO LOAD DATAOR AND DATAND 


ae ~SBTTL SUBROUTINE TO LOAD DATAOR AND DATAND 
174 SERRA RARER AERA RARER AEE RAR AAA AERERERRRARRERER ARE ERE REE 
175 3* 
2176 s@ THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
2177 3* ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
2178 hd DATA ONTO DATAOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
siz :* DATAND. 
* 
2181 a a plain ene ne gga em gp ee ger tm a on egy 
2182 003624 056637 000002 001246 DATEXT: BIS 2(SP) ,DATAOR SET THE * hata TO DATAOR 
2183 003632 005166 000002 COM 2(SP) [COMPLIMENT T ATA 
2184 003636 046637 000002 001242 BIC 2(SP) ,DATAND CLEAR THE “AND PATTERN TO DATAND 
2185 003644 012616 MOV (SP)+, (SP) CLEAN THE STACK FOR THE RETURN 
2186 003646 000207 RTS PC iRET URN 






H 4 
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TINE TO LOAD PATAOR AND PATAND 
2188 » SBTTL SUBROUTINE TO LOAD PATAOR AND PATAND 


FARRAR AEREREREREEEEEEEERERERERERREERERAEREEREREEEREEEEREEEREREE 


189 :* 
2190 7* THIS SUBROUTINE ASSUMES THE DATA 10 BE ANDED AND ORED HAS BEEN PUT 
2191 7 ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
2192 7* DATA ONTO PATTOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
si? 3* PATAND. 

“a 

2195 Terme a ga met gr te te ayer gene me yr meng aye 
2196 003650 056637 000002 001254 PATEXT: BIS 2(SP) ,PATTOR SET THE ‘OR* gh. TO PATTOR 
2197 003656 005166 000002 COM (SP) :COMPLIMENT THE PATTERN 
2198 003662 046637 000002 001252 BIC 2(SP) ,PATAND 7CLEAR THE ‘AND PATTERN TO PATAND 
2199 003670 012616 MOV (SP) +, (SP) :CLEAN UP STACK FOR RETURN 
2200 003672 000207 RTS PC RETURN 


I 4 , 
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SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & AD 


201 ~SBTTL SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAND 

a4 BY RARER AEAAERAAAAEAAAAEAAEAEAAAARARAKARAEAEEEAARARERERAREEEEEEEE 

220 ;* 
2204 ie THIS SUBROUT INE ASSUMES THE CONTENTS OF THE PAR, AND THE VIRTUAL 

2205 * DRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 

2206 3* TO EXPOSE THE UPPER ADDRESS BITS, BIT SETS THEM TO ADDROR+2, COM- 

2207 3% PLIMENTS THE CONTENTS AND BIT CLEARS ADRAND+2. AFTER RELOADING 

2208 ze THE PAR IN RS, IT SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 

2209 3* ADDS THE VIRTUAL ADDRESS 10, CREATE THE PHYSICAL LOWER 16 B ITs. 

2210 8 THEN IT BIT SETS THEM TO AD COMPLIMENTS THE CONTEN TS AND 

2211 * BIT CLEARS ADRAND. ANOTHER OC OMPLINENT BRINGS THE STATE BACK TO 

2212 ;* ITS ORIGINAL STATE. THIS SUBROUTINE LEAVES WITH THE LOWER 16 

2213 :* BITS AND THE UPPER 6 BITS ON THE STACK, AND ARE TO BE REMOVED IN 

Ban 3* THAT ORDER, AND MUST BE REMOVED AFTER RETURN. 

**® 

2216 *: RERAEEKEKEKAEREKAAREAREEEEERAEAKKEAAKEEKAKEEEAEEKEARAEKEEEEAEAAEEREEE 

2217 00 010546 ADREXT: MOV R5,-(SP) ZSAVE R5 

2218 003676 016605 000004 MOV 4(SP),R5 sMOVE PAR CONTENTS TO me FOR — 

2219 003702 072527 177766 ASH #-10..R5 ‘SHIFT RS TO THE RIGHT 10 PLACES 

2220 003706 042705 177700 BIC #177700,R5 ‘CLEAR BITS 15 TO 6 

2221 003712 022705 000074 CMP #74,R 3SEE IF 1/0 PAGE 

2222 003716 001002 BNE 1 CH IF NOT 

2223 003720 012705 000077 MOV #77,R5 SRESET R5 TO 7 

2224 003724 010537 001206 1$: MOV RS, $TMPS *MOVE OBTAINED “WPPER 6 BITS TO $TMPS FOR FUTURE TRANSFER 

5 003730 050537 001240 BIS R5.ADDROR+2 [SET THE "OR' PATTERN OF UPPER 6 BITS TO ADDROR+2 

2226 003734 005105 COM [COMPLIMENT 

2227 003778 040537 001234 BIC R5 ,ADRAND+2 = CLEAR THE ‘AND’ PATTERN OF UPPER 6 BITS TO ADRAND+2 
2228 00374 016605 000004 MOV 4(SP) ,R5 ‘PUT PAR CONTENTS BACK INR 

2229 003746 013766 001206 000004 MOV STMPS ,4(SP) “MOV VE re . BITS OF PHYSICAL ADDRESS ON STACK 
2230 003754 022737 000074 001206 CMP #74,$TMP5 [SEE IF 1/0 PAGE 

2231 003762 001007 BNE 2$ [BRANCH IF NOT 

2232 003764 012737 000077 005764 MOV #77,EADRES+2 § :SET 77 IN UPPER ERROR LOCATION 

2233 003772 016637 000006 005762 MOV 6(SP),EADRES | :SET LOWER ADDRESS IN LOWER ERROR LOCATION 

2234 004000 000411 BR 3 [BRANCH OVER PREP 

2235 004002 042705 176000 2$: BIC #176000,R5 :STRIP OFF UPPER 6 BITS OF PAR CONTENTS 

236 004006 072527 000006 ASH #6.R sSHIFT REMAINING BITS 6 PLACES TO THE LEFT 

2237 004012 042766 160000 000006 BIC #160000,6(SP) STRIP OFF PAR PAGE BITS FROM ADDRESS TO FORM OFFSET 
2238 004020 060566 000006 ADD R5,6(SP5 [FORM LOWER 16 BITS OF ADDRESS 

2239 004024 012605 3$: MOV (SP)+,R5 TRESTORE R5 

2240 004026 056637 001236 BIS 4(SP);ADDROR :SET THE OR’ PATTERN TO ADDROR 

2241 004034 005166 000004 COM SP [COMPLIMENT THE ADDRESS 

2242 006040 046637 000004 001232 BIC 4(SP) , ADRAND : CLEAR THE ‘AND’ PATTERN TO ADRAND 

2243 004046 005166 000004 COM Pp) SRETURN ADDRESS TO ITS ORIGINAL STATE 

2244 004052 02273 005764 CMP #77,EADRES+2 :SEE IF 1/0 PAGE IN UPPER LOCATION 

5 004 0014 BEQ $ ‘BRANCH TO EXIT IF SO 

2246 004062 016637 000004 005762 MOV 4(SP),EADRES PUT _ LOWER 16 BITS IN ERROR STATUS LOCATION 
2247 006070 016637 000002 005764 MOV 2(SP);EADRE3+2 :PUT UPPER 6 BITS IN ERROR STATUS LOCATION 

2248 004076 012666 00000 4S: MOV (SP)+,2(SP) :PUT RETURN ADDRESS WHERE IT BELONGS 

2249 004102 005726 TST (SP)+ [CLEAN STA 

2250 004104 000207 RTS PC SRETUR 
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AQOUMNWUIUIVI 
—SOOONAOULSWI 


MONO PoPo nono nonononunofnononn) 
MNP Nnoponenonofononononory 


nm 
mr 
NO 


ror 
rMononony 
NNNN 
FRSNSOESRERVEK 


Nm 
~ 
SARA“ SSHGS ALAR 


ERRERRRERRREERES 


NM 
~m 
sayy 
MALS 


005737 


004312 


000004 


001256 
001310 
001310 


005076 
177734 


004000 
175064 
005000 
001176 


000002 
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000002 


001106 


172354 


174720 
001176 


005762 


004312 





SEQUENCE 48 


~SBTTL SUBROUTINE TESTING RELOCATION ADDER 


SEERA AEREREEREAEEEAERAEEREEREEEEEEEEREERKEEKE 


th THE FOLLOWING SUBROUTINE IS USED IN TESTS 13 AND 16, AND USES THE DATA 
* BANK FOLLOWING TO EXECUTE THE LOOPS IN THE TEST. R% IS THE SPECIAL 
7* "STACK' POINTER, INITIALIZED AT THE BEGINING TO THE R3STAK DATA BANK. 
:* THE STACK POINTER 1S ADVANCED 3 WORDS FOR EACH PASS. CALL THIS SUB- 
3* ROUTINE IN THIS MANNER: 
3 CLR CLEAR STMP4 = USED IN ERROR RETURN 
:*1$: JSR ADD 260 DO THE TEST 
* ERROR *ERRORNURBER ‘RETURN IS HERE FOR ERROR 
:* BR ‘BRANCH BACK TO CONTINUE TEST 
el, ee. SS A A. RL. 
MAPADD: TST LOEFLG :SEE IF THIS ENTRY WAS AN ERROR 
BNE $ :GO CONTINUE TEST 
MOV (SP) ,=(SP) [MOVE RETURN UP ONE NOTCH 
ADD 4,2(SP) SCREATE ADDRESS ON STACK FOR FINAL RETURN 
MOV #RESTAK,R3 ‘SET THE SPECIAL STACK POINTER 
MOV SSET THE LOOP COUNTER 
MOV #2$.$LPERR :SET LOOP ON ERROR POINTER 10. 28 
CLR @LREGU SCLEAR UPPER BITS OF MAPPING R 
1$: MOV (R3)+,@LREGL § :LOAD LOWER BITS OF MAPPING 
MOV LOWEST,KIPAR6 LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
MOV (R3)+,RO SSELECT PAR6, OFFSET IS 
2$: MOV (RO) ,R1 READ LOCATION DEFINED BY 4TH WORD IN TABLE 
MOV (R3)+, UBM24L MOVE ANTICIPATED PHYSICAL ADDRESS TO UBM24L 
CMP R1,UBM24L [SEE IF THE MAP'S FETCH WAS CORRECT 
BEQ ‘BRANCH IF FETCHED DATA MATCHES ADDRESS 
JSR PC, CHKLMA :GO SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
~WORD  LMAHI,LMA SADDRESSES OF LMA REGISTERS 
BR 4 SRETURN IS HERE IF OK 
BIT #B1T11,aSWR SCHECK TO SEE IF 11/24 WITH UB MEMORY ONLY 
BEQ 25$ ‘BRANCH IF NOT 
MOV @UBM24L,$TMP1 :GET EXPECTED DATA FOR ERROR CALL 
JSR PC .PTMPS [GO PREPARE $TMP2 FOR ERROR CALL 
BR 26$ :GO CALL ERROR 
25$: MOV (RO) .STMP1 GET EXPECTED DATA FOR ERROR CALL 
MOV R1,$TMP2 *GET DATA FROM R1 FOR ERROR CALL 
26$: SUB 2-R3 ANTICIPATE ERROR LOOPING BY UNDOING AUTOINC 
MOV UBAZGL .EADRES ‘PUT ADDRESS IN EADRES FOR ERROR CALL 
CLR EADRES+ [CLEAR UPPER LOCATION 
MOV (SP) ,-(SP) [PUT AN EXTRA RETURN ON FOR POSSIBLE ERROR LOOPING 
MOV 1,LOEF [SET FLAG SHOWING ERROR CALL WAS CALLED 
RTS PC SEXIT TO ERROR CALL AT TEST 
3$: ADD #2,R3 SRESTORE AUTOINC, ERROR L NOT D 
ADD #2. [CLEAN EXTRA RETURN OFF STACK = LOOPING NOT DONE 
4$: S0B R4.1$ SSUBTRACT 1 FROM R4 AND BRANCH IF NOT 
TST (SP)+ SEXPOSE NEXT TEST RETURN ADDRESS 
RTS PC SEXIT TO NEXT TEST 
LOEFLG: .WORD 0 [LOOP ON ERROR FLAG LOCATION 
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SEQUENCE 


R4 VALUE 


ADDRES: OF FSET 


} 
| 
| 
| 
| 
| 


4 
PHYSCL 


K 
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i VRTUAL 


(;) BETWEEN THE EXPECTED ADDRESS AND THE OFFSET VALUES 
t ADDRES 


BASE 


;>>>NOTE<<<: THE ‘OFFSET’ COLUMN IS NOT IN THE STACK DUE TO THE DELIMITER 


;DATA_IN THE R3STAK DATA BANK BELOW IS ARRANGED IN THE FOLLOWING ORDER: 


3306 


en 


nnnnnnnnnuiu 
i i a a I 
@eaeancacncacacaca 


omwoooyrwowm 


QL NOQOZL OVO 
UNUM MOR. 
WUT OCU — ~ 


Sszss val sa) 
jolelelelololeolo) 3S 


prerererere 
PIERRE S Re 


S ceaii ienedi suk sensi eel au een 


ARMAAMMMMmmmm 
NVNAUNNNNNNNN 


SUBROUTINE TESTING RELOCATION ADDER 


CKKUADO 11/24/44 UBI MAP 
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SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER 


2317 .SBTTL SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER 
2318 ; ff ARATE RAERAAAAEERAREARERREREREERERAERAERERARERERREE 
2319 3* THIS SUBROUTINE IS USED BY TESTS 14 AND 17. CODE CALLING THIS SUB- 
2320 3* ROUTINE IS AS FOLLOWS: 
2321 3* CLR STMP4 CLEAR STMP4 = USED IN ERROR RETURN 
339¢ [*LAB: JSR PC, TCPMRA £60 DO THE TEST 
232 3* ERROR 2 eft “RETURN IS HERE IF AN ERR 
2324 3 BR ‘BRANCH BACK TO CONTINUE OEsT 
2325 OE ES | ECE A AD 
2326 004416 005737 004312 TCPMRA: TST LOEFLG :TEST ERROR FLAG TO SEE Jf THIS ENTRY IS FROM ERROR 
2327 004422 001132 BNE [BRANCH TO CONTINUE TEST IF SO 
2328 004424 011646 MOV (SP) ,-(SP) [MOVE RETURN ADDRESS UP ONE 
2329 004426 062766 000004 000002 ADD #4,2(SP) [CREATE CORRECT FINAL RETURN ADDRESS 
2330 004434 012737 177777 004674 MOV #-1,35$ sINITIALIZE FLAG AS NEGATIV 
2331 004442 005077 174634 CLR @LREGU sCLEAR UPPER 6 BITS OF MAP REG 
2332 004446 012777 020000 174624 MOV #20000,@LREGL :LOAD 4K BASE INTC MAP REGIST 
2333 004454 012701 100100 MOV #100100,R1 sLOAD BITS TO SELECT PAR 4, OFFSET 100 
2334 004460 012700 150000 MOV #150000,R0 ‘LOAD BITS TO SELECT PAR 6. OFFSET 2k 
2335 004464 012737 000277 172350 MOV #277 ,KIPARG ‘START WITH PHYSICAL 6K 
2336 004472 013737 001256 172354 MOV LOWEST, KIPAR6 :LOAD PAR 6 WITH MAP REG'S ADDR 
2337 004500 012737 004552 001106 MOV #2$,$LPERR ‘Set Loop ON ERROR POINTER TO 2$ 
2338 004506 005037 001330 1$: CLR PCPUER SCLEAR TIME OUT FLAG 
2339 004512 062737 010000 001310 ADD #10000, UBM24L :FORM EXPECTED LMA FOR POSSIBLE USE 
2340 004520 001002 BNE 15$ [BRANCH AROUND UBM24U INCREMENT IF NOT ZERO 
2341 004522 005237 001312 INC UBM24U : INCREMENT UPPER LOCATION 
2342 004526 012737 000020 001326 15$: MOV #20, CPUEXP SEXPECTING A UNIBUS TIME OUT DURING TEST 
2343 004534 013710 001364 MOV DATA, (RO) :THIS LOAD WILL TIME OUT WHEN You HAVE REACHED THE TOP 
2344 :0F MEMORY IT SELECTS PAR 6 WHICH WILL PUT ADDR <XXX1>0000 ON THE UNIBUS. THE X'S WILL 
g345 {SELECT THE LOWEST USABLE MAPPING REGISTER. THE DEFAULT Case Is 00010000, SELECTING 
2347 004540 005037 001326 CLR CPUEXP ZCLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2348 004544 005737 001330 TST PCPUER [SEE IF THERE WAS MAIN MEMORY 
2349 004550 001050 BNE 3$ [BRANCH IF NO MAIN MEMORY FROM UNIBUS 
2350 004552 012737 000040 001326 2%: MOV WNEXMEM,CPUEXP POSSIBLE CACHE NON-EXISTENT MEMORY 
2351 004560 011103 MOV (R1) ,R3 :READ TEST LOCATION VIA FASTBUS 
2352 004562 005037 001326 CLR CPUEXP [CLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2353 004566 022737 000040 001330 CMP #NEXMEM,PCPUER :WAS THIS CACHE NON-EXISTENT MEMORY 
2354 004574 001436 BEQ 3$ [BRANCH IF NON-EXISTENT MEMORY 
2355 004576 011002 MOV (RO) ,R2 SREAD TEST LOCATION VIA UNIBUS MAP 
2356 004600 020203 CMP R2,R3 [COMPARE TEST DATA R RI=RAP DATA, R3=FASTBUS DATA 
2357 004602 001433 BEQ 3$ sBRANCH IF IT WAS THE SAME 
2358 004604 004737 076 JSR PC, CHKLMA :GO CHECK FOR 11/24 WITH UB MEMORY 
2359 004610 177736 177734 WORD LMAHI,LMALOW ADDRESSES OF LMA REGISTERS 
2360 004614 900426 BR sRETURN IS HERE IF OK 
2361 004616 032777 004000 174312 BIT #B1T11,aSwR ; SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 
3362 004624 001403 BEQ 5$ CH IF NOT 
2363 004626 004737 005000 JSR PC .PTMP2 ;60 PREPARE $TMP2 FOR ERROR CALL 
2364 004632 900492 BR ANCH TO CALL ERROR 
2365 004634 01103 001200 25$: MOV (RO) ,STMP2 GET RECEIVED DATA FOR ERROR CALL 
2366 004640 010337 001176 26$: MOV R3,$TMP1 GET EXPECTED DATA FOR ERROR CALL 
2367 004644 011646 MOV (SP) ,=(SP) {PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE LOOP 
2368 004646 013 001310 005762 MOV SL. EADRES :LOAD LOWER 16 BITS OF AD DRESS FOR ERROR CALL 
2369 004654 013737 001312 005764 MOV UBM24U,EADRES+2 ;LOAD UPPER 6 BITS Ao ADDRESS FOR ERROR CALL 
3370 004662 012737 000001 004312 MOV #1, LOEFLG [SET FLAG SHOWING AN ERROR RETURN 
Sirs Bere BOeee : IM, bo IMCEMENT OME FIRE eWTRANE FLAG 
s + 
$375 004674 003 $f 383. -WORD =1 sFLAG 
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2374 004676 
2375 0047 

2376 004706 
2377 004710 
2378 004714 
2379 004722 
2380 004730 
2381 004736 
2382 004740 
2383 004744 
2384 004752 
2385 004754 
2386 004760 
2387 004766 
2388 004774 
2389 004776 


~N 
~ Oo 
NA NNN NANO 
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SUBROUTINE TO TEST CARRY PROP OF MAP*S RELOC ADDER 


172350 
000002 


010000 


174336 
000073 


001364 
177700 
000300 
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001356 


174330 


001364 
001364 


ws 
adh ed 


5$ 
KIPAR4 ,RSIZE 
5 


4100. DATA 


KIPARG 
ne. @LREGL 


775.9 REGU 
1$ 


DATA 
#i77700,DATA 
#300,DATA 


(SP) + 
PC 


SEQUENCE 51 


;BRANCH IF I'VE at HERE BEFORE 
;SAVE UPPER LIMIT OF MEMORY 
;BRANCH OVER ERROR LOOP CORRECTION 
POP EXCESS RETURN ADDRESS OFF STACK 
[CHANGE PATTERN FOR NEXT LOAD 
ADD 2k TO PARG 
SADD 2k TO MAP REGISTER 
BRANCH IF MAP REGISTER NOT 3 ry 
ADD ONE TO UPPER 6 BITS OF MAP REG 
: SEE IF TOP 128K BLOCK HAS BEEN PASSED 
ANCH IF NOT PAST IT 
“CHANGE DATA PATTERN FOR NEXT PASS 
[CLEAR UPPER_10 BITS OF DATA PATTERN 
ZSTART WITH 3XX_ IN DATA PATTERN 


POP STACK EXPOSING FINAL RETURN ADDRESS 


-"—-— 
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SUBROUTINE. 10 OBTATH CONTENTS OF LMA CONTENTS LOCATION 


2390 .SBTTL SUBROUTINE TO OBTAIN CONTENTS OF LMA CONTENTS LOCATION 

2391 005000 013705 177734 PTMP2: MOV RS sMOVE LMA LOW REGISTER CONTENTS TO RS FOR SHIFTING 

2392 005004 072527 177772 ASH pir RS sSHIFT PHYSICAL UPPER 3 BITS TO THE RIGHT 6 PLACES 

2393 005010 042705 176177 BIC #176177,R5 ;CLEAR ALL BUT THE THREE SHIFTED BITS | 
2394 005014 010546 MOV R5,-(SP) SSAVE THIS NUMBER ON THE STACK 
2395 00501 013705 177736 MOV LMAHI ,R5 ‘MOV E LMA te arta rent CONTENTS TO +? 4 SHIFTING 
2396 005022 072527 000012 ASH #10. ,R5 SSHIFT LOWER 6 BITS TO THE LEFT 10 PLACES | 
2397 005026 B6e60? ADD (SP)+,85 :ADD ME PALS tor eT SHIFTED CONTENTS TO rt 

2398 005030 015746 172346 MOV KIPARS,-(SP) TACK 

2399 005034 01053 126346 MOV R5,KIPAR3 ‘ove OBTAINED PAR VALUE TO PAR3 

2400 005040 013737 177734 001200 MOV LMALOW,STMP2 =: GET ADDRESS MAP CREATED 

2401 005046 042737 100000 007200 BIC WBIT15.$TMP2  :CLEAR BIT 15 AND 

2402 005054 052737 060000 001200 BIS #60000.$TMP2 :SET BITS 13 & 14 TO PUT PAR PAGE 3 IN STMP2 

2403 005062 017737 174112 001200 MOV aSTMP2 ,STMP2 *MOVE sovienls OF LOCATION TO $TMP2 

2404 005070 012637 172346 MOV (sP)+, KIPAR3 §:RESTORE PAR3 

2405 005074 000207 RTS TEXIT 


Pate See 
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SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMOR 


406 .SBTTL SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMORY 
40 33 RERAAAEEAAEAAEEAAARAREAAEAEEAARAARAKEARAARAAAARERAAAARAARARAEARAEAARE 
408 ;* 
409 3* THIS $ SUBROUTINE CHECKS THE SWITCH REGISTER TO SEE IF USER STATES THAT 
410 ie /24 CPU WITH UNIBUS ME Y. IF NOT IT IS 
411 i* ExecureD WITH THE RET URN Bel, ING UPDA TED THE 2ND LOCATION AFTER THE 
ae 8 JSR CALL. ELA HIGH REGISTER IS CHECKED FOR BEING E 
41 i* 10 THE CowrENTS "of “Cane ASSUMED TO BE PRELOADED. THESE 6 BITS ARE 
414 i THE UPPER 6 BITS OF THE MAPPED ADDRESS FORMED BY THE MAP REGISTER 
415 * LOGIC), IF NOT EXIT” TO FUDGE RETURN. IF SO, LOW REGISTER IS 
416 :* CHECKED. IT 1§ ASSUMED THAT LOCATION UBM24L CONTAINS THE EXPECTED 
417 * PHYSICAL ADDRESS. ES THE LMA LOW REGISTER WITH UBM24L IF 
418 * EQUAL, EXECUTES A RETURN WITHOUT THE FUDGING OF THE RETURN ADDRESS 
3419 * OTHERWISE IT IS FUDGED. 
** 
re *; REREAAARAREARAERARAARAAERERERERAARARARARARARERAARAEARAAARARARAEARRARKRAKKKEK 
422 005076 017637 000000 005134 CHKLMA: MOV a0(SP),10$ :MOVE LMAHI ADDRESS TO ACCESS TO 10$ 
423 005104 062/16 000002 ADD #2, (SPS ZADVANCE T O NEXT PARAMETER 
424 005110 017637 000000 005154 MOV a0(SP),11$ VE LMALOW ADDRESS i ACCESS TO 11$ 
2425 005116 062716 000002 ADD #2, [CORRECT RETURN OVER TER 
2426 005122 032777 004000 174006 BIT #BiT11,aSWR [SEE IF USER SAYS FHIS IS AN 11/24 WITH UB MEMORY 
2427 005130 001413 BEQ 1$ *BRANCH OUT IF NOT 
2428 005132 013746 MOV a(PC)+,-(SP) | MOVE LMA HIGH REGISTER CONTENTS TO STACK 
2429 005134 10$: .WORD 0 [LOCATION FOR ADDRESS TO Acc 
2430 005136 042716 177700 BIC #177700,(SP) CLEAR ALL BUT LOWER 6 BITS (UPPER 6 BITS OF ADDRESS) 
2431 005142 023726 001312 CMP UBM24U,(SP)+ SEE If UPPER 6 BITS ARE AS EXPECTED 
2432 005146 001 BNE 1 H TO PREPARE FOR OND RETURN LOCATION IF NOT 
2433 005150 023737 001310 CMP UBM24L ,a(PC)+ :SEE 7 EXPECTED DATA WAS CLOCKED PROPERLY 
2434 005154 000000 11$: .WORD 0 “LOCATION FOR ADDRESS TO ACCESS 
2435 005156 001402 BEQ 2$ ‘BRANCH AROUND STACK RETURN FUDGE IF OK 
2436 005160 062716 000002 1$: ADD #2, (SP) [FUDGE RETURN OVER NON-ERROR BRANCH 
2437 005164 000207 2$: RTS PC TEXIT 


—— Ce Se “4 
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PRETEST DATA SETUP SUBROUTINE 


2438 .SBTTL PRETEST DATA SETUP SUBROUTINE 
ly 9 © REEEAAEAEAAAEAAEAAAAAAEAEAEEAARAARARERAREAARARARARAAAAEAEREREEARE 
sti0 005166 011600 PRETST: MOV (SP) ,RO :MOVE RETURN ADDRESS TO RO 
441 005170 01203 001362 MOV (RO)+,NXTTST | :SAVE STARTING ADDRESS OF NEXT TEST FOR ESCAPE ON PAR ERRORS | 
442 005174 012037 001106 MOV (RO)+,$LPERR | ;SET LOOP ON ERROR POINTER TO 20$ IN TEST 
44 905200 9120 7 001100 MOV (RO)+,$TSTNM | :SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 
44% 005204 013777 001100 173726 MOV STSTNM,@DISPLAY :DISPLAY TEST NUMBER FOR ALL TO SEE 
445 005212 01001 MOV RO, (SPS [FUDGE RETURN OVER PARAMETERS 
46 005214 010037 001104 MOV RO. $LPADR :SET LOOP ON TEST POINTER TO START OF TEST 
2447 005220 012737 000001 001212 MOV #1 ,STIMES *RESET ITERATIONS COUNTER TO 1 


| 
SRETURN TO BEGIN TEST | 
| 
| 
| 
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DISABLE CHECK SUBROUTINE 


2449 -SBTTL DISABLE CHECK SUBROUTINE 
450 PIT ITIITITITITI ITT tT Titi Titi T iti iti ti itiiiiiitii titi iit iii it 
3431 Pettit titi iii iii iii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 
45 i* 
45 3* THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 
454 sf IN THE LOCATION POINTED TO BY_R5 (EITHER $DDWO OR SDDW1), AND DETER- 
2455 ;* MINES IF THE LOCATION SHOULD BE DISABLED. 
2456 005230 105737 020034 DSABLD: TSTB oy TEST APT STATUS 
2457 005234 001411 BEQ 1$ CH_IF NOT APT 
2458 603678 105737 020035 TSTB SENVM “DOES APT SAY TO SIZE 
2459 005242 100006 BPL 1$ ;BRANCH TO EXIT 4 . 
soot OpeSec 033715 005772 BIT | eats sTEST piste STA 
461 005250 001403 BEQ 1 CH IF IT SHOULD BE DISABLED 
2462 005252 011537 001176 MOV (R5) ,STMP1 “MOVE CONTENTS OF pevice DESCRIPTOR WORD TO $TMP1 
463 005256 000402 BR ZBRANCH OVER RETURN CORRECTION 
2464 005260 062716 000002 1$: ADD #2, (SP) CHOCOLATE FUDGE RETURN OVER ERROR CAL 
2465 005264 000207 2s: RTS PC ;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 
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ENABLE CHECK SUBROUTINE 


4 .SBTTL ENABLE CHECK SUBROUTINE 

46 3 3 <RERRERERRERREREEREEEREREREERRERERREERERREREEREREREREEEEREEEREEE 

468 ie THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 

2469 i IN THE LOCATION POINTED TO BY R5 (EITHER $DDWO OR $DDW1), AND DETER- 
2470 MINES IF THE LOCATION SHOULD BE ENABLED. 

471 005266 105737 020034 ENABLD: STB. ss SENV sTEST APT STATUS 

472 005272 001411 bea 1$ ‘BRANCH IF NOT APT 

2473 905274 105737 020035 TSTB $ENVM :DOES APT SAY TO SI7é 

2474 005300 100006 BPL CH TO EXIT IF NOT 

2475 005302 033715 005772 BIT FLOATR, (R5) :TEST DISABLE STATUS 

2476 005306 001003 BNE ‘BRANCH IF IT SHOULD B& ENABLED 

2477 005310 011537 001176 MOV (R5) ,$TMP1 ;MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 
2478 005314 000402 BR CH OVER RETURN CORREC) 10N 

2479 005316 062716 000002 1$: ADD #2, (SP) SVANILLA FUDGE RETURN OVER EP®ROR CALL 

2480 005322 000207 2$: RTS PC SRETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 
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CACHE TEST IN SUBROUTINE FORM 


SEQUENCE 57 


481 .SBTTL CACHE TEST IN SUBROUTINE FORM 

tes FF RRAAAAAAAEAAREREARERERAEEERAERERAAAAARARAAARARAEEEEREEREEREREEEEEE 

4 .ENABL 

+86 005324 042737 000001 177572 CASHSR: BIC 1T00,MMRO :TURN OFF RELOCATION 

485 005 2 052737 000400 177746 BIS #81T08, CACHE ;FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 
486 005 032737 010000 177746 18: BIT WB1T12,CACHE § :WAIT TILL DONE 

2487 005346 001374 BNE 

488 005350 013702 000000 MOV 0,R2 SAVE ADDR. 0 CONTENTS 

489 005354 005037 000000 CLR 0 :0°S TO MAIN MEMORY LOCATION 0. 

2490 005 005003 CLR 3 SCLEAR ERROR FLAG 
2491 005362 012704 177777 MOV #=1,R4 tALL 1°S TO Ree 
2492 005366 013700 000114 MOV CTRAPV,RO 7SAVE VECTORS 
2493 005372 013701 000116 MOV CTRAPS,R1 
349 005376 012737 005522 000114 MOV ys CTRAPV :SETUP FOR CACHE TRAP 

495 005404 012737 000340 000116 MOV #340, CTRAPS 
2496 005412 112737 000002 177750 MOVB #2,MAINT ODO ALLOWS CACHE UPDATES AND CLOCKING OF 

2497 ARITY INFO TO INTERRUPT LOGIC ONLY DURING 
2498 AE DESTINATION ACCESS OF AN INSTRUCTION. 

2499 005420 012737 000015 177746 MOV #15, CACHE ‘NO UCB SO AS TO WRITE CACHE STORES 

2500 005426 005737 040000 TST 40060 :UPDATE CACHE LOC CATION 0000 WITH CORRECT 

3302 005432 052737 000100 177746 BIS #B1T06, CACHE ‘pani ty stone PARITY DATA TO LO & HI BYTE 
2504 005440 005737 000000 TST 0 sREAD UPDATE TO CACHE LOCATION 0000; 

2505 WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
2506 005444 042737 000100 177746 BIC #81706, CACHE {DISABLE WwPD 

2507 005452 005037 177744 CLR CMP ‘CLEAR CMPE AND PARITY DETECT Logic 

2508 005456 142737 BICB (PC)+,a(PC)+ TALLOW INT & ENABLE LOW CACHE (1ST sDPMO002 
2509 005460 CASH1: .WORD 0 SLOCATION LOADED BY THE TEST = DPMOO2 
2510 005462 177746 “WORD CACHE ZADDRESS OF CACHE LOCATION = DPMOO2 
2511 005464 122727 CMPB es (PC) +, (PC) + H TEST :DPMOO2 
3512 005466 002 -BYTE 2 vest 2 IS TESTED FOR ;DPMOO2 
2513 005467 000 CASH2: .BYTE 0 ‘THIS LOCATION LOADED BY PMOO2 
2514 005470 001405 BEQ 2$ ‘GO TO 2ND TEST SECTION IF SND Fest EXECUTING 
2515 005472 005737 000000 TST 0 READ HIT LO & HI BYTE PARITY CHECK GE 

2516 WILL DETECT WRONG PARI ARI 

2517 ;ERROR WILL BE CLOCKED TO INTERRUPT LOGIC 

2518 005476 000240 NOP :NEEDED FOR v4 

2519 005500 005203 INC R3 ‘INDICATE THAT TRAP DID NOT OCCUR 

2520 005502 000410 BR 4$ ‘BRANCH OVER STAGE CORRECTION AND 2ND TEST SECTION 
2521 005504 052737 000200 177746 2%: BIS WBITO7,CACHE  :ALLOW FOR ABORT 

2522 005512 011304 MOV sREAD HIT LO & HI BYTE PARITY CHECK GENERATORS WILL 
2523 :DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION. 0 WILL 
2526 s INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC. THE PARITY 
2525 TERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO BE ASSERTED. THE ABORT Re GNAL WILL 
2526 ‘BECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD 

2527 005514 000240 NOP zNEEDED IN AN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 
2528 005516 005203 INC R3 : INDICATE NO TRAP OCCURED 

2529 005520 000401 BR 4$ ‘BRANCH OVER STACK CORRECTION 

2530 005522 022626 3$: CMP (R6)+, (R6)+ ;READJUST STACK DUE TO INTERRUPT 

2531 005524 005037 177744 : CLR CMPE 

3532 005530 012737 001015 177746 MOV #1015, CACHE {DISABLE CACH 

2533 005536 105037 177750 CLRB = MAINT :DISABLE MODE 

2534 005542 010237 000000 MOV R2,0 SRESTORE LOCATION 0 

2535 005546 010037 000114 MOV RO. CTRAPV SRESTORE CACHE INTERRUPT VECTORS 

2536 005552 010137 000116 MOV R1.CTRAPS 
2537 005556 052737 000400 177746 ! WBiTOR. CACHE  ;BEFORE LEAVING TEST FLUSH CACHE TO ELIMINATE EFFECTS OF wWwP 










5 
CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE $0.3 SEQUENCE 
CACHE TEST IN SUBROUTINE FORM 


538 005564 orate. 010000 177746 5$: BIT #81712, CACHE sWAIT TILL DONE 

539 005572 001374 BNE 5$ 
2540 005574 000207 RTS PC sEXIT 
2541 -DSABL LSB 
254 -SBTTL SUBROUTINE TO PREPARE AND CHECK DATA PATTERN 


254 FERRARA RAARAEEREEERAEKEAERARAERRAARERERARERERERRERRERERERE 
2544 005576 011504 thKPAT: MOV (RS) .R4 :MOVE NEXT COUNT PATTERN TO R2 
545 005600 043704 005774 BIC MASK1 RG ;USE MASK1 PRE-LOADED FOR PROPER LOADING 
010410 MOV (RO) OAD MAP REGISTER WITH COUNT PATTERN 
011504 MOV (R5) RG ;RELOAD PATTERN 
043704 005776 BIC MASK? ,R4 USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 
020410 CMP R4, (RO) ‘COMPARE EXPECTED WITH RECEIVED 
001402 BEQ 1 SBRANCH IF DATA IS OK 
062716 000002 ADD #2, (SP) : FUDGE RETURN TO SHOW ERROR 
000207 1$: RTS PC EXIT 
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AL NUMBER FROM THE TTY 


NOAQAO 


o-00000 
Ons 


S=8825 
Roeksek=FSSSSes 
an— 


SSSSSSSES= 


NOS 
=-—o 
— = ORR) SY SY 


Soar 
Oomonn 


=—NN 
sae 


oo 
—— 
So 
™m 
Ww 
N 


oo 
——— 
Swnn 
Sess 
ooo 
mo—" 


0000 


000004 000002 


177770 


000012 
005734 


SEQUENCE 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


PITTTIITIIITITILI LITTLE LLL LLL ELLE LLL LLL 


:STHIS ROUTINE wilt READ AN OCTAL (ASCII) NUMBER FROM THE TTY, CHANGE IT TO 
*BINARY AND PUT 


teCALL 
ie RDOCT 
3* MOV (SP)+,LOCATION 
;* 
SRDOCT: MOV (SP) ,=(SP) 
MOV seeps oesP) 
MOV RO,-(SP) 
MOV R1.=(SP) 
MOV R2,-(SP) 
1$: RDLIN 
MOV (SP)+,RO 
CLR R1 
CLR R2 
2$: MOVB = (RO) #, = (SP) 
BEQ 3$ 
CLC 
ROL R1 
ROL R2 
CLC 
ROL R1 
ROL R2 
CLC 
ROL R1 
ROL R2 
BIC #177770, (SP) 
BIS (SP)+,Ri 
BR 2 
3$: TST (SP)+ 
MOV R1,12(SP) 
MOV R2.$HIOCT 
MOV (SP)+,R2 
MOV (SP)+-R1 
MOV (SP) +_RO 
RTI 
SHIOCT: .WORD 0 


THE NUMBER ON THE STACK. 


zREAD_AN OCTAL NUMBER 
;POP THE INPUTED NUMBER OFF STACK 
HIGH ORDER BITS ARE IN $HIOCT 


sMAKE ROOM FOR THE 

;OCTAL NUMBER 

+ SAVE RO 

+ SAVE a? 

SAVE R2 

;READ THE OCTAL NUMBER 

CLEAR RY OF 1ST CHARACTER 


7 CLEAR 
:MOVE CHARACTER TO STACK 


:$ RECEIVE 
hi ALL BU NARY EQUIVALENT 
;SET THE BINARY EQUIVALENT TO LOWER RECEIVER 


CH_BACK 
ICL EAN _TERMINATOR FROM STACK 
7SAVE THE RESULT 


sRESTORE R2 
RESTORE R1 
RESTORE RO 


RET URN 
sHIGH ORDER BITS GO HERE 
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CKKUADO 11/24/64 UBI MAP MAC SEQUENCE 60 
DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 

593 .SBTTL DATA TABLES AND ASCII STRINGS USED 1 IN THIS ADIAGNOSTIC 

594 005736 005742 006116 DTMS: .WORD DTMSG,DFMSG :POINTER TO DAT ARIABLE AD DRESSES 

595 005742 001266 001270 001272 DTMSG: :WORD MMRLOW,MMRHI,UBRLOW UBRHI STESTN -DATA VARIABLES TO BE PRINTED 
$296 005756 000000 CHARCT: .WORD 0 sTHI§ LOCATION HOLDS CHARACTERS, INPUTED DURING THE TYPE ROUTINE 
2597 005760 000000 EXTOUT: .WORD 0 STHIS LOCATION STORES THE OUTPUT OF THE EXTRACT TINE 
2598 005762 900000 000077 EADRES: .WORD 0,77 LOCATIONS FOR STORING 22 BITS OF THE REGISTER ADDRESS 
2599 005766 000077 EADRS2: .WORD 0.77 ATIONS FOR STORING ANOTHER UBMAP REGISTER ADDRESS 

600 005772 000000 FLOATR: .WORD 0 3LOCATION TO HOLD BIT TO FLOAT TO TEST DDW’S STATU 

1 005774 000000 MASK]: .WORD 0 E-LOADED BY THE TEST WITH THE 1ST BIT-MAS 

2602 005776 000000 Sk2: .WORD 0 {PRE-LOADED BY THE TEST WITH THE 2ND BIT-MASK 

2603 SPECST: .BLKW 40 
2604 900002 “RADIX 2 -THIS ENABLES You, TO SEE THE BIT PATTERNS BELOW 

2605 006100 17777 PATRNS: .WORD 1111111111111111 TS SET 

2606 006102 000000 [WORD 0000000000000000 Att BITS CLEAR 

2607 006104 125252 “WORD 1010101010101010 :0DD BITS SET, EVEN BITS CLEAR 

2608 006106 052525 “WORD 0101010101010101 ;EVEN BITS SET, ODD BITS CLEAR 

2609 006110 031463 “WORD 0011001100110011 ALTERNATING PAIRS OF BITS SET 

2610 006112 007417 WORD 0000111100001111 SALTERNAT ING GROUPS OF 4 BITS SET 

2611 006114 000377 WORD 0000000011111111 LOWER BYTE SET, UPPER BYTE CLEAR 

2612 000010 .RADIX “THIS RETURNS mobE BACK TO OCTAL 

2613 006116 000 000 000 DFMSG: .BYTE 0,0,0,0,6 ZALL NUMBERS ARE TO BE PRINTED IN OCTAL 

2614 006123 200 125 116 UBMAVA: .ASCIZ <CRLF>?UNIBUS MEMORY AVAILABLE = ? 

2615 006157 123 127 122 NEWSWR: .ASCIZ ?SWR INPUT ? 

2616 006172 040 113 200 UBMEND: .ASCIZ ? K?<CRLF> 


Lee 
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5 
1 11:08 PAGE 3; 








CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-8 SEQUENCE 
DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 
18 ; 0 104 111 CPUMSG: .ASCIZ Sg ASS fg eS HAS DETERMINED THAT CPU_IS AN 11/ 42<CRLF> 
1 103 1 3 TOMSG: rita}. ?ACCESSING MEMORY THROUGH THE FOLLOWING REGISTER(S)?<CRLF> 
103 101 1 eASCIZ 2CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) ?<CRLF> 
i ae 124 110 105 NOMORE: .ASCII ?THERE ARE STILL MORE ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 
621 006510 105 122 122 eASCIZ ERROR WILL BE COUNTED AND a ite AT THE END-OF -PASS?<CRLF> 
sose 006605 124 110 111 BADCPU: .ASCII ?THIS DIAGNOSTIC IS DESIGNED F /24 OR 11/44. 2<CRL 
006670 104 111 101 ~ASCIZ 2DIAGNOSTIC DOES NOT INTERPRE CPU. AS EITHER ONE. ?<CRLF> 
505 006752 111 123 040 MRQUES: .AS.IZ 21S THERE A REGISTER MODULE IN THIS CPU (Y OR <CR>)? 
007041 040 200 000 GMRMD1: .ASCIZ ? ?<CRLF> ;PLACE FOR USER INPU tH CTER 
2626 007044 104 111 101 GMRMOD: .ASCIZ DIAGNOSTIC CHECKS THIS MODULE - INSERT BEFORE RE-RUNNING?<CRLF> 
sos? 007136 000 CPUTYP: yg AL 0 LOCATION TO STORE THE CPU TYPE NUMBER 
2629 RESERVE REMAINING AREA FOR PERMANENT PATCHES 
2630 :THIS AREA MAY GO BEYOND 10000. USE ONLY THAT AREA UP TO 7776. 
2631 007140 000000 000000 O00000 PATCH: .WORD 0.0,0,0,0.0.0,0,0.0,0.0.0.0,0.0.0.0,0,0,0,0.0,0,0.0.0.0.0,0,0.0 
2632 007240 000000 000000 000000 “WORD 0,0,0,0,0.0,0,0.0,0,0,0.0,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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PRE-TESTING SETUP 


$3 .SBTTL PRE-TESTING SETUP 

6 FRRRRARARRERERKKERE 

635 ‘START OF TEST CODE 

2636 FRAKRERRERRKERERREE 

2637 

2638 010000 .=10000 :START TEST CODE AT ADDRESS 10000 (2k) 
2639 010000 012737 000340 177776 START: MOV #340,PS ‘LOCK OUT ALL INTERRUPTS 

2640 010006 012700 001100 MOV #SCMTAG,RO ‘FIRST LOCATION TO BE CLEARED 

2641 010012 012701 000021 MOV #<S$TKS-$CMTAG>/2.R1;MOVE LOOP COUNTER TO R1 

642 010016 005020 11$: CLR (RO)+ :CLEAR MEMORY LOCATION 

2643 010020 077102 $0B R1,11$ :SUBTRACT 1 AND BRANCH IF NOT DONE YET 
2644 010022 005037 020022 CLR SPASS s INITIALIZE PASS COUNT 

2645 010026 012706 001100 MOV #STACK,SP SINITILAIZE STACK 

2646 010032 012700 010054 MOV #13$,R0 [MOVE ADDRESS OF VECTORS TO RO 

2647 010036 012701 000005 MOV #5,Ri ; 

2648 010042 012030 12$: MOV (RO)+,a(RO)* | MOVE VECTOR TO LCCATION 

2649 010044 012730 000340 MOV #340,a(RO)+ SMOVE PRIORITY 7 TO NEXT LOCATION 

2650 010050 077104 SOB R1,12$ ‘BRANCH BACK IF NOT DONE YET 

2651 010052 000417 BR 14 “BRANCH OVER DATA WORDS 

2652 010054 020140 000020 000022 13s: .WORD $SCOPE,IOTVEC, JOTVEC+2, $ERROR, EMTVEC, EMTVEC+2, $TRAP, TRAPVE 
2653 010074 000036 023462 000024 -WORD TRAPVE+2,$PWRDN,PWRVEC ,PWRVEC+2,$RTRN, TBITVE, TBITVE+2 

2654 010112 013737 021516 021510 14%: MOV SENDCT,SEOPCT —;SETUP END-OF-PROGRAM COUNTE 

2655 010120 005037 001214 CLR SESCAPE [CLEAR THE ESCAPE ON ERROR ADDRESS 

2656 010124 112737 000001 001113 MOVB #1, S$ERMAX TALLOW ONE ERROR PER T 

2657 010132 012737 000002 021742 MOV #RTI,SRTRN ‘SET $RTRN TO AN RTI 

2658 010140 012737 010166 000010 MOV #16$,RESVEC ‘MOVE 16$ (FAILURE) TO RESVEC 

2659 010146 012746 000340 MOV #340,-(SP) [MOVE PRIORITY TACK 

2660 010152 012746 010160 MOV #15$,-(SP) SMOVE 15$ (SUCCESS) TO THE STACK 

2661 010156 000006 RTT sTRY TO DO AN RTT 

2662 010160 012737 000006 021742 15$: MOV #RTT,SRTRN sRTT IS LEGAL--SET S$RTRN TO AN RTT 

2663 010166 012706 001100 16$: MOV #STACK, SP ‘RESET STACK IF NECESSARY 

2664 010172 012737 000012 000010 MOV WRESVEC+2,RESVEC:RESET T ATCHER 

2665 010200 005037 021750 CLR $TBIT [CLEAR ''T’’ BIT SWITCH 

2666 010204 012737 010700 001104 MOV #TST1+2,$LPADR :SETUP $LPADR 

2667 010212 012737 010700 001106 MOV #TST1+2.$LPERR :SETUP $LPERR 

2668 010220 005227 177777 INC #1 SFIRST TIME? 

2669 010224 001017 BNE 18$ ‘BRANCH IF NOT 

2670 010226 104401 010234 TYPE 17$ :TYPE THE TEST TITLE 

2671 010232 000414 BR 18$ ‘BRANCH OVER ASCIZ 

$678 010234 103 113 113. 17$: ry "CKKUAD 11/24/44 UBI MAP' 

2674 010264 005737 020022 18$: TST SPASS 31S THIS THE FIRST PASS? 

2675 010270 001140 BNE BRANCH 

2676 010272 015746 000004 MOV 4,-(SP) ‘SAVE TIMEOUT VECTOR 

2677 010276 012737 010470 000004 MOV #2$,4 S TIMEOUTS TO 104$ 

2678 010304 013746 000006 MOV 6,-(SP) TSAVE PS VECTOR 

2679 010310 012737 000340 000006 MOV #340,6 : 1Ty 7? 

2680 010316 000007 MFPT ‘DETERMINE PROCESSOR TYPE 

2681 010320 110037 007136 MOVB _—sRO, CPUTYP [MOVE THE CPU NUMBER TO CPUTYP 

2682 010524 105337 007136 DECB CPUTYP SMAKE THE 11/44 VALUE ZERO 

2683 0103 001021 BNE 1$ [BRANCH TO NEXT TEST IF NOT AN 11/44 

2684 010332 022737 177777 177570 CMP #-1,177570 [SEE IF SSWR IS TO BE USED sDPMO02 
2685 010340 001 BNE 1000$ ‘BRANCH TO SETUP FOR HARDWARE SwWR :DPMOO2 
2686 010342 012737 000176 001136 MOV #176, SWR [SET UP FOR SSWR :DPMOO 
2687 010350 000403 BR 1010$ ‘BRANCH : 
2688 010352 012737 177570 001136 1000$: MOV #177570, SwWR [SET UP FOR HARDWARE SWITCH REGISTER  :DPMOO 
2689 010360 112737 000064 006253 1010$: MOVB #'4,CPUMSG+55 :MOVE ASCII 4 TO LOCATION IN MESSAGE TO PRINT 
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007136 1$: 


001136 
006253 


001136 


172346 


7$: 


172346 
172346 


001136 


000006 


LOOP: 


TYPE 


— 
se oCPUTYP 
ASSSWR ,SWR 


#°2,CPUMSG+55 
CPUMSG 


$ENVM 

6$ 

#SSSWR, SWR 
$SSWR 

6% 

/NEWSWR 
(SP)+,$SSWR 
rs} 


5 
#100 KIPAR3 


#7600 ,KIPAR3 
(SP) +, KIPAR3 
SENVM 


LOOP 
#SSWREG, SWR 


#CPUER ,ERRVEC 
#340, ERRVEC #2 


#-1 ~RO 

RO, CPFLAG 
RO, TOFLAG 
RO, MMF LAG 
RO, CPUERR 





SEQUENCE 63 ( 


pe THE CPU TYPE HEADER 
TINUE 


ISEE IF THIS I$ AN 11/24 

:BRANCH TO FATAL ERROR MESSAGE PRINTING IF NOT 

iSETUP SOFTWARE SWITCH REGIST :D 

:MOVE ASCII 2 TO LOCATION IN MESSAGE TO PRINT 
;TYPE THE CPU TYPE HEADER 

i1$ APT SIZING 

;BRANCH IF _NO 

;SETUP SOFTWARE SWITCH REGISTER 

;SEE IF SWR IS NON-ZERO 

:BRANCH IF SO 


3 TYPE: 
:60 READ USER OCTAL_ INPUT 
MOVE nts gta TO THE SOFTWARE SWR LOCATION 


anes | SWR NONZERO FOR POSSIBLE NEXT RUN 


; CONTINUE 
: CLEAN STACK AFTER TIMEOUT 

APT THIS IS A FATAL ERROR 
3 TYPE v4 BAD CPU MESSAGE 
L_ERROR = THIS DIAGNOSTIC IS WRITTEN 
FOR “rr AND 11/44 PROCESSORS ONLY 
DON'T ALLOW CONTINUE 
SRESTORE TIMEOUT PS 
RESTORE TIMEOUT VECTOR 
3 SAVE _PAR3 
ZSTART WITH mets 40000 
ADDRESS PAR3, x FSET=0 
sDATA TO LOAD TO 40000 
:MOVE DATA TO LOCATION 
MOVE DATA UP 10000 
:MOVE ADDRESS UP vee 
SEE IF ALL DONE Y 


: NOT 

USE APT SWITCH REGISTER 
LOAD MEMORY GEMENT TRAP SERVICE ROUTINE ADDRESS 
SET PRIORITY SEVEN 

;LOAD CPU ive siteee ROUTINE ADDR 


-———- 


Poors Wenge a ne eA 
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tests # 1 = MAP REGISTER RESPONSE TEST 
2750 » SBTTL TEST # 1 = MAP REGISTER RESPONSE TEST 
FREER EAAAAEAREREEEEEEAEREEAAEAREERKEAEREREREEAERAEEREREEREEE 
| S*TEST 1 MAP REGISTER RESPONSE TEST 
*® 
| st THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 
3* CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT. 
3% THE ee OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 
7* AND, AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 
7* E GIVEN. 
** 
*: ; REET AAEKAERAAERAAREREEEEEAEAAAARAARAAAAEARAREAREREREERAEKKEEEREEE 
010676 TST1: 
010676 000004 SCOPE 
010700 004737 005166 JSR PC,PRETST 3GO SET UP PRETEST a 
0107046 011122 011042 000001 WORD TST2,20$,1 “DATA USED BY PRETST 
2751 010712 012737 003030 000004 MOV #TIMEOUT ,ERRVEC ; LOAD ERRVEC WITH ROUTINE ADDRESS 
2752 010720 105737 007136 TSTB CPUTYP TEST TO SEE WHICH CPU IS RUNNING THIS DIAGNOSTIC 
2753 010724 001435 BEQ 3$ “BRANCH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 
2754 010726 005037 001320 CLR ERRCNT ;CLEAR THE ERROR COUNTER 
2755 010732 013702 170200 1$: MOV MAPL® 2 “READ FIRST MAP REGISTER TO R2 
2756 010736 005737 001320 TST ERRCNT 343 IF THERE WERE ANY ERRORS 
2757 010742 001426 BEQ 3$ ANCH pay CHECK THEM ALL IF NONE, THEY ARE IN THIS 11/246 
2758 010744 105737 020034 TSTB SENV ‘One WE RUNNING UNDER APT 
2759 010750 100004 BPL 2s ‘BRANCH IF NOT 
2760 010752 005237 020014 INC SMSGTY ;TELL APT THIS IS A FATAL ERROR 
2761 010756 000000 HALT HALT - FATAL ERROR 
2762 010760 000764 BR 1$ Y AGAIN - RESTART REQUESTED 
2763 010762 104401 006752 2s: TYPE -MRQUES ‘ISK USER IF THERE ARE MAP REGISTERS IN THIS 11/24 
2764 010766 104406 RDCHR 3GO READ USER INPUT 
2765 010770 112637 007041 MOVB (SP) +,GMRMD1 “MOV —E THE CHARACTER TO THE PRINTING LOCATION 
2766 010774 104401 007041 TYPE ~GMRMD 1 : TYPE THE CHARACTER 
2767 011000 122737 000131 007041 CMPB #°Y,GMRMD1 ;SEE IF THIS WAS A ‘yY’ 
2768 011006 001404 BEQ 3$ ;BRANCH AROUND FATAL MESSAGE IF EQUAL TO A ‘y' 
2769 011010 104401 007044 TYPE ~ GMRMOD s TYPE: ‘DIAGNOSTIC CHECKS THIS MODULE - INSERT 
2770 "BEFORE RE-RUNNING' 
2771 011014 000000 HALT :FATAL ERROR - WAIT rc USER ACTION 
2772 011016 000745 BR 1$ Y AGAIN = RESTART REQUESTED 
2773 011020 012700 170200 3$: MOV #MAPLO,RO ‘Pur FIRST MAP REGISTER ADDR IN RO 
2774 011024 012703 000100 MOV #100-R3 TEST ALL MAP REGISTERS 
2775 011030 005037 001320 CLR ERRCNT ;CLEAR THE ERROR COUNTER 
2776 011034 012737 011042 001106 MOV #20$,SLPERR sMAKE SURE SLPERR IS POINTING AT 20$ 
2777 011042 011002 20S: MOV ;READ MAP REGISTERS TO R2 
2778 011044 032777 001000 170064 BIT #81709, aswR + SEE IF LOOP ON ERROR IS SET 
2779 011052 001403 BEQ 4$ ;BRANCH AROUND SETUP IF NOT 
2780 011054 005737 001320 TST ERRCNT 3SEE IF AN ERROR OCCURED 
2781 011060 001370 BNE 20$ ‘BRANCH BACK IF SO 
2782 011062 005720 4$: TST (RO)+ teeing | RO TO NEXT REGISTER LOCATION 
2783 011064 077312 $08 R3,20$ 7D0 A F THEM 
2784 011066 012737 003222 000004 MOV #CPUER ,ERRVEC RESTORE CPU TRAP SERVICE rege aver ss TO ERRVEC 
2785 011074 012737 011020 001106 MOY #3$, SLPERR “MOVE 3$ TO LOOP ON ERROR FOR ERROR +4 BELOW 
2786 011102 005737 001320 TST ERRCNT : SEE IF THERE WERE ANY ERRORS 
2787 011106 001405 BEQ TST2 ;GO TO NEXT TEST IF NO ERRORS 
2788 011110 005337 001110 DEC SERTTL {BON'T T COUNT SUMMARY AS AN ot Laas ERROR 
2789 011114 005337 001320 DEC ERRCNT :DECREMENT ERRCNT FOR SAME R 
2790 011120 104004 ERROR ‘+4 ;SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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| TEST # 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
| 
| 


2805 .SBTTL TEST # 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
J FARRAR AAEEREAAEEAEREEREREEREKRERERERERERERAREREEREREEEEREEE 
[TEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
** 
| te THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS OF 40 UNIBUS 
it MAP REGISTER LOCATIONS MAPLOO = MAPL37, USING TWO MAJOR PASSES. 
7* IT WILL TEST THE LOWER 16 BITS ON THE FIRST PASS, AND THE UPPER 
3* 6 BITS ON THE SECOND. THIS TEST WILL MAKE SURE THE REGISTER CAN 
* CLEAR, AND THEN RUN 6 BIT PATTERNS THROUGH EACH UNIBUS MAP REGISTER. 
* IF THE DATA. PATTERN RECEIVED DOES NOT MATCH THE EXPECTED PATTERN, 
:* THEN THE MAP REGISTER ADDRESS, DATA RECEIVED, PATTERN LOADED, AND 
se PATTERN EXPECTED ARE REPORTED. AT THE END OF EACH OF THE TWO MAJOR 
s* PASSES, A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN DETERMINE 
* IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
** 
PPTITITITITIITITTITT TT iti Titi iit iii i iitiiiiiiiiiiiiiitiiiiiiiit 
011122 TST2: 
011122 000004 SCOPE 
011124 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
011130 011444 011254 000002 WORD TST3,20$,2 sDATA USED BY PRETST 
2806 011136 005037 001320 CLR ERRCNT ;CLEAR THE ERROR COUNT LOCATION 
2807 011142 012737 011254 001106 1$: MOV #20$,$LPERR ;SETUP 20$ AS LOOP ON ERROR INDICATOR (IF NOT ALREADY) 
2808 011150 012700 170200 MOV #MAPLOO,RO sMOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 
2809 011154 005037 005774 CLR MASK1 sMOVE 'O' TO MASK1 
2810 011160 012737 000001 005776 MOV #1,MASK2 ‘MOVE °1° TO MASK2 
2811 011166 012701 000040 2s: MOV #40,R1 :D0 40 REGISTERS LOOP COUNTER ' 
2812 011172 012702 000007 3$: MOV #7 ,R2 :MOVE PATTERN LOOP COUNTER TO R2 
2813 011176 012705 006100 MOV #PATRNS RS [MOVE PATTERN START 
2814 011202 004737 005576 4$: JSR PC, CHKPAT *GO CHECK PATTERN 
2815 011206 000435 BR 7$ ZRETURN IS HERE IF DATA IS OK 
2816 011210 011003 MOV (RO) ,R3 ZREAD BAD MAP REGISTER DATA INTO R3 
2817 011212 011537 001174 MOV (R5),$TMPO sMOVE PATTERN TO $ 0 
2818 011216 011546 MOV (R5) ,-(SP) sMOVE PATTERN TO STACK FOR SUBROUTINE USE 
2819 011220 004737 003650 JSR PC .PATEXT :GO SET DATA INTO PATTOR AND PATAND 
2820 011224 010346 MOV R3,-(SP) :MOVE BAD DATA TO STACK FOR SUBROUTINE USE 
2821 011226 004737 003624 JSR PC, DATEXT : SUBROUTINE TO LOAD DATAOR AND DATAND 
2822 011232 043737 005774 001174 BIC MASK1,$TMPO :FORM INPUT PATTERN FOR ERROR PRINTING 
2823 011240 010046 MOV RO,-(SP) ;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE 
2824 011242 013746 172356 MOV KIPAR7,=(SP) :PUT PAR CONTENTS ON STACK FOR ADREXT SUBROUTINE 
2825 011246 004737 003674 JSR PC,ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2826 : FORM A PHYSICAL 22-B1T ADDRESS 
2827 011252 000403 BR 5$ :BRANCH OVER LOOP ON ERROR SECTION 
2828 011254 004737 005576 208: JSR PC, CHKPAT [GO TO SUBROUTINE TO CHECK PATTERN 
2829 011260 000401 BR 6$ SRETURN IS HERE IF DATA IS OK 
2830 011262 104208 5$: ERROR +203 :THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
2831 011264 032777 001000 167644 6$: BIT #81T9,aSwR [SEE IF LOOP ON ERROR IS SET 
3852 011272 001370 BNE : LOOP BACK IF SO 
283 otis 012737 011172 001106 MOV #3$,SLPERR sMOVE 5$ TO LOOP ON ERROR INDICATOR 
2834 011302 005725 7$: TST (RSS :POINT RS TO NEXT PATTERN 
2835 011304 077 42 $08 R2,4$ :DECREMENT LOOP COUNTER 
3836 011 06¢ 000004 ADD #4,RO [POINT TO NEXT MAP REGISTER UNDER TEST 
2837 011312 077151 $08 R1.3$ [DECREMENT LOOP COUNTER AND 
2838 011314 005737 001320 TST ERRCNT [SEE IF THERE WERE ANY ERRORS 
2839 011320 poretg BEQ 9$ BRANCH IF NO ERRORS 
2840 O11 366 Bete 011142 001106 MOV #1$,SLPERR sMOVE 1$ TO LOOP ON ERROR FOR ERROR +6 OR +7 BELOW 
2fs. 211330 00 333 001110 DEC SERTTL ; SUMMATION ERROR NOT COUNTED AS ANOTHER ERROR 
2». . 1334 005337 001320 DEC ERRCNT [SAME AS ABOVE 
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TEST # 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGIST 
011 <100 170402 CMP #MAPH37+4 ,RO sSEE_IF THIS PASS WAS UPPER 6 BIT 
011 Q 8$ G0 SERVICE UPPER 6 BITS ERROR IF SO 
yee 1 ERROR +6 : Y OF BIT PATTERN FAILURES wi, 16 BITS 
11350 00040 BR - :G0 SET UP DATA FOR TESTING UPPER ITs 
01135 Aocey 8$: ERROR + : SUMMARY OF BIT PATTERN ail Uses UPPER 6 BITS 
Bi 54 3 BR TST3 3760 TO NEXT TEST = LOWER 16 BITS ALREADY TESTED 
11 0227 170402 9$: CMP #MAPH37+4 ,RO 3SEE IF THIS PASS WAS FOR THE UPPER 6 BITS 
011 14 BEQ TST 3:60 TO NEXT TEST IF IT WAS 
011 127 011254 001106 10S: MOV #20$,SLPERR RESET LOOP ON ERROR TO 2 
011372 01 9 170606 MOV #MAPHOO ,RO :MOVE STARTING io aes OF UPPER 6 BITS REGISTER TO RO 
011376 0127 177 005774 MOV At da, § MASK} MOVE 1ST MASK oo Ski 
011404 oiler ee 177700 005776 MOV 4} roe »MASK2 ?MOV E 2ND MASK MASK? 
011412 037 Oo 1g2e CLR CLEAR PATTOR FOR NEXT PASS 
011416 005037 1686 CLR DATAOR ;CLEAR DATAOR FOR NEXT PASS 
Bi 1e8S 012737 177777 001252 MOV #-1,PATAND sMOVE -1 TO PATAND FOR NEXT PASS 
0114 012737 177777 001242 MOV #-1 ,DATAND sMOVE -1 TO DATAND poe oat peas 
011436 005037 001320 CLR ERRCNT CLEAR ERROR COUNT FOR NEXT 
011442 000651 BR 3GO REACCOMPLISH TEST FOR UPPER BITS 
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# 3 ~ DUAL ADDRESS LOADS & READS MAP REG’ 
2873 .SBTTL TEST # 3 = DUAL ADDRESS LOADS & READS MAP REG'S 
FRRAAAAAAAAARAREEEAREREEEERREEEREREAEEERAEREEREERERRERRERERREREEEEE | 
TSTEST 3 DUAL ADDRESS LOADS & READS MAP REG'S 
3* 
ie THIS TEST, ENSURES THAT ONLY ONE UNIBUS MAP REGISTER IS LOADED | 
ie DUR ‘MOV #DATA,MAPREG’’ INSTRUCTION. ALL MAP REGISTERS 
j* ARE CLEARED AND ONE REGISTER AT A TIME STARTING WITH MAPLOO, 
* IS LOADED WITH A = THEN, ALL MAP REGISTERS ARE READ, 
* STARTING WITH MAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
* THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
* OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
* END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 
** 
*: RRAEAEEAAEEEKRAEEAARARAEEREREREREEAARAEAEHRERRAARARARAREREREREERAEREREE 
011444 S73: 
011444 000004 SCOPE 
011446 004737 005166 JSR PRETST :G0 SET UP PRETEST DATA 
011452 011762 011616 000003 a: 4,20$,3 ‘DATA USED BY PRETST 
2874 011460 042737 000001 177572 BIC STURN OFF MEMORY MANAGE 
2875 011466 012700 170200 MOV A oR [LOAD ADDRESS OF MAPLOO i iN TRO 
2876 011472 012702 177700 MOV #177 80’Ro 7SET UP XOR A TA 
2877 011476 012701 170400 1$: MOV #MAPH3742,R1 :PUT ADDRESS OF MAPH37+2 IN R1 
2878 011502 012737 000077 001174 MOV #77,,$TMPO :SET UP TEST CA TTERN IN STMPO 
2879 011510 004737 002772 JSR PC, CLRMAP [CLEAR ALL MAP REGISTERS FOR TEST 
2880 011514 012703 000100 MOV #100,R3 ‘SET UP LOOP COUNTER FOR TESTING 40 REGISTERS, 2 WORDS EACH 
2881 011520 005037 172516 CLR MMR3 i CLEAR mers 
2882 011524 012704 000100 2$: MOV #100,R4 ‘SET UP LOOP COUNTER FOR CHECKING 40 REGISTERS, 2 WORDS EACH 
2883 011530 074237 001174 XOR R2,$TMPO SREVERSE BIT STATES OF $TMPO IN BITS 7 TO 15 
2884 011534 013710 001174 MOV $TMPO, (RO) [LOAD MAP REGISTER UNDER TEST 
2885 011540 012701 170400 MOV WMAPH37+2,R1 PUT ADDRESS OF MAPH37+2 IN R1 
2886 011544 005741 3$: TST -(R1) [SEE IF MAP REGISTER IS ZERO 
2887 011546 001435 BEQ 7$ :G0 SEE IF MORE REGISTERS TO TEST IF = 0 
2888 011550 005011 CLR (R1) [CLEAR THE FAILED LOCATION 
2889 011552 020100 CMP R1,RO [SEE IF NON-ZERO REGISTER ADDRESS MATCHES ADDRESS “OADED 
2890 011554 001432 BEQ 7$ :GO SEE IF MORE REGISTERS TO TEST IF S 
2891 011556 012137 001202 MOV (Ri)s, STHP3 [MOVE FAULTY DATA TO $TMP3 & PREPARE R1 FOR POSSIBLE LOOP 
2892 011562 013746 001202 MOV MP3. =( [MOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 
2893 011566 013746 172350 MOV eipare, (sep) [MOVE PAR4 TO STACK FOR SUBROUTINE USE 
2894 011572 004737 003674 JSR PC,ADREXT [GO SET DATA GIN. THE 4 WORDS OF ADDROR AND ADRAND 
2895 [AND FORM A PHYSICAL 22-BIT ADDRES 
2896 011576 013746 172356 MOV KIPAR7,-(SP) | :PUT PAR ON STACK FOR DATEXT SUBROUTINE USE 
2897 011602 010146 MOV R1,-(SP) [PUT VIRTUAL ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 
2898 011604 004737 003624 JSR PC: DATEXT : SUBROUTINE TO LOAD DATAOR AND DA 
2899 011610 010037 005766 MOV RO. EADRS2 sMOVE ADDRESS IN RO TO EADRS2 FOR ERROR CALL 
2900 011614 000405 BR & [BRANCH OVER LOOP ON ERROR SECTION 
2901 011616 013710 001174 20$: MOV $TMPO, (RO) [LOAD MAP REGISTER UNDER rest 
2902 011622 005711 TST (R1) ZSEE IF MAP REGISTER IS ZERO 
2903 011624 001402 BEQ 63 7GO SEE IF LOOP ON ERR OR IS STILL SET IF ZERO 
2904 011626 005011 CLR (R1) [CLEAR THE FAILED LOCATION 
2905 011630 lo4e0e 5$: ERROR +202 :DUAL ADDRESSING ERROR IN THE UNIBUS MAP 
2906 011632 032777 001000 167276 6$: BIT #B1T09,aSWR SSEE IF LOOP ON ER ROR 1S SET 
2907 011640 001366 BNE 208 *BRANCH BACK IF 
2908 011642 077440 7$: S0B R4,3$ [BRANCH IF MORE REG ISTERS TO CHECK 
2909 011644 005020 CLR (RO) + TCLEAR THE REGISTER JUST TESTED AND POINT TO NEXT REGISTER 
2910 011646 005303 DEC R3 ‘DECREMENT LOOP COUN 
2911 011650 001 328 BNE 2$ ‘BRANCH IF MORE REGISTERS TO TEST 
2912 011652 005737 001320 TST ERRCNT [SEE IF THERE WERE ANY ERRORS 
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2913 011656 0014 BEQ RELC22 
2914 011660 Opa 001110 DEC SERTTL 
2915 011664 005337 001320 DEC ERRCNT 
2916 011670 10400 ERROR +5 


MACRO abi — 11:08 PAGE B7§ 


SEQUENCE 68 


G0 TO NEXT gy FULL IF NO ERRORS 
done COUNT ERROR +5 AS ANOTHER ERROR 


AS ABOVE 
;SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 


ne ES LS LS SS eS SS SS 


6 
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# 3 = DUAL ADDRESS LOADS & READS MAP REG'S 


14 011672 104414 RELC22: TBITR ZRESTORE THE T git To ITS CONDITION 
19 011674 012700 077406 MOV #77606,RO :MAKE THE KERNEL 1-SPACE PAGES ALL 
20 4K, UPWARD EXPANDABLE READ/URITE 
2921 011700 012701 172300 MOV #KIPDRO,R1 ;MOVE ADDRESS OF KIPDRO 7 TO RI 
99 ’ 011704 oi 702 000010 MOV a “LOAD 8 PDR'S 
011710 01002 1$: MOV RO, (R1)+ ZKERNEL ESPACE PAGE X KIPDRX 
904 011712 077202 SOB R2,1$ :SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
25 011714 00500 CLR R = CLEAR 6 
2926 O1i716 012701 172340 MOV AKIPARO,R1 ;MOVE ADDRESS OF KIPARO TO R1 
2927 011722 012702 000006 MOV #6,R2 ZLOAD FIRST 
2928 011726 010021 2$: MOV RO, (R1)+ ‘MAP KIPARX TO NEXT PHYSICAL PAGE 
2929 011730 062700 000200 ADD #260,R0 sMAP RO TO NEXT PAGE 
2930 011734 077204 S08 R2,2 ‘SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
2931 011736 012721 170000 MOV 4796000, (R1)+  =MAP KIPARG TO UNIBUS 
$932 011742 0197¢1 177600 MOV #177600,(R1)* :MAP KIPAR7 TO I/C PAGE 
2933 011746 012737 000001 177572 MOV #810,MARO ENABLE FULL 18-BIT MAPPI 
2934 011754 012737 000020 172516 MOV #B1T4,MMR3 ENABLE 22-B1T 
2935 je AT THIS POINT “Ze-B1T RELOCATION FROM EMORY MANAGEMENT 
2936 * Is ENABLED, WITH THE KIPAR'S MAPPED 0 PHYSICAL mete 
2937 ie KIPAR6 IS MAPPED TO THE UNIBUS (170000) 
2938 ie KIPAR? is MAPPED TO THE 1/0 Dace (177600) 


oe 11/24/44 UBI_ MAP 
T # 4 = MAP REGISTER ADDRESS DECODE TEST 


- SBTTL TEST # 4 = MAP REGISTER ADDRESS DECODE TEST 


J AARAARAAEAARERAEREREREEEERERERERERAREEEERREEREEREERRERREREREREERE 


MAP REGISTER ADDRESS DECODE TEST 


2949 


011762 
011762 
011764 
011770 

2950 011776 
2951 012004 
$326 012012 
2953 012016 
2954 012022 
2955 012026 
2956 012032 
2957 012036 
2958 012040 
2959 012044 
2960 012052 
232 012060 
2963 012062 
2964 012064 
2965 012072 
2966 012074 
2967 012100 
2968 012104 
2969 012106 
2970 012112 
2971 012114 
$376 012120 
2973 012124 
2974 012126 
2975 012134 
2976 012136 
2977 012142 
2978 012144 
2979 012146 
2980 012150 
2981 012154 
2982 012156 
2983 012162 
2984 012164 
2985 pists 
2986 012200 
sath O1s506 
88 012210 
2989 012212 
2990 012216 


SRNSNNUNE 
SESS 
NeNNION 


38 


Sooooooooooo 
NN ENN A NS NOON 


Be 888888 ese eSSS5 
SSESSNSSNouSeNN 
REWRAGLARSRSAS 


SOWOW Ww 
NEN 2 NS NONOO 


oo=— 
SSSR ess 
w= 


cooo 
-Oo—— 


000020 


001326 
170200 


170200 


172354 
003674 


000020 
001326 


170200 
170200 


000077 
001000 
000020 


001326 
172354 
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001326 


001326 


001326 


005764 
166736 


001326 


Z*TEST 4 


m- nse eae RR Be 
“ 


Tere rerere rere rere) 


1$: 


20$: 


2$: 
3$: 
4$: 


5$: 


THIS TEST TRIES TO VERIFY THAT NONE OF 
DECODER FOR THE 

SET UP TO HOLD 177702 AND R4 HAS TH 
MAPLOO, THROUGH KIPAR6. 
IN PAR6 SO THAT iT SHOULD NEVER REFERENCE MAPLOO. 


SEQUENCE 70 


7 
‘ 
| 
| 


THE INPUTS TO THE ADDRESS 
KIPAR6 IS 


S MAP REGISTERS IS STUCK TRUE. 


ERROR IS REPORTED. 


RO,- 
KIPAR6,-(SP) 
#TIMOUT , CPUEXP 
(R4),R1 

CPUEXP 

R2,R1 

#TIMOUT, CPUEXP 
(R4) 

CPUEXP 

MAPLO 

4$ 

R2,MAPLO 
R4.=(SP) 
KIPAR6,-(SP) 
PC,ADREXT 
ATIMOUT , CPUEXP 
(R4),R1 


(R4) 
MAPLO 


3$ 
R2 Y tae 


+207 EADRES+2 
#81T09,aSwR 


#TIMOUT , CPUEXP 
R1,(R4) 


CPUEXP 
(SP) +, KIPAR6 


HE VIRTUAL ADDRESS TO SELECT 
THE TEST THEN CHANGES ONE BIT AT A Noa * 
IF IT DOES, AN 


SRERAAEAERERAEEREEAAEAEAEEEREREREAAAERAAERAREERARAAERERAREREERERRERERER 
4; 


:GO_ SET UP og 3 DATA 

DATA USED BY PRETST 

zSAVE KI reat FOR RES ason in LATER 
zPUT_MAP REGISTER 0 ADDR IN PAR6 
;PATTERN FOR TESTING. 


sLOAD MAP REGISTER 0 
3SET BIT 11 TO FLOAT ——_" PAR6 


| 
' 
| 
:VIRT.ADDR. TO SELECT PAR6 
:CHANGE A BIT OF MAP REGISTER 0°S ADDR 


2 CLEAR 
SEE A DATA FETCHED MATCHES PATTERN 
TIME OUT ON UNIBUS 
gis 
XPECT TRAPS FOR A WHILE 
; LEARED 
BRANCH IF MAP REGISTER NOT ZERO 


ORE MAPL 

;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT Baie USE 
;PUT PAR ON STACK FOR ADREXT SUBROUTINE 
GO SET DATA IN THE 4 WORDS OF ADDROR AND SRDRAND 
G0 CALL ERROR 
ZEXPECTING CPU TIME OUT ON UNIBUS 
READ LOCATION POINTED TO BY PAR6 
sCLEAR CPIUEXP = DON'T EXPECT TRAPS FOR A WHILE 
3SEE IF DATA FETCHED MATCHES PATTERN 
7BRANCH IF NOT SAME 
zTRY TO St ae THIS LOCATION 
7SEE IF MAP REGISTER 0 GOT CLEARED 
sBRANCH IF MAP REGISTER NOT ZERO 
sRESTORE As), 
:GOT TO MAPLO WITH ONE BIT DIFFERENT IN ADDRESS FROM 1777020 
SRESTORE 77 TO EADRES+#2 
SEE IF LOOP ON ERROR IS SET 
sBRANCH BACK TO LOOP IF SO 
sees ie CPU TIME OUT ON UNIBUS 

oe THE L 


CA 
CLEAR C PIUEXP = DON'T EXPECT TRAPS FOR A WHILE 
RESTORE KIPAR6 


wy 11/24/44 UBI_ MAP 
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# 4 = MAP REGISTER ADDRESS DECODE TEST 


Sie ie Ore03y 172354 


MOV (SP)+,RO 
x RO, ,KIPAR6 


1$ 
234 O13 zy 001200 172354 68: MOV STMP2 ,KIPAR6 





sRESTORE RO 
; RESTORE Tt TO ORIGINAL STATUS 
RIGHT SHIFT ONE PLACE 


SEQUENCE 


CONTINUE TEST IF BIT NOT SHIFTED OUT YET 


:G0 
RESTORE KIPAR6 


71 
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TEST # 5 = DATA PATH, UNIBUS TO MAIN MEMOR 


3008 .SBTTL TEST # 5 = DATA PATH, UNIBUS TO MAIN MEMORY 
MITTTIIITITITITITITIITLI ILLITE LLL LLL EEL LL LLL 
tSTEST 5 DATA PATH, UNIBUS TO MAIN MEMORY 
ie 
ie THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
* THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
ie THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 
ie PATTERN INTO ADDRESS 040000 (8k) QUT IF THE UMPERS AR 
7* SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4K IS TRIED UNTIL 
* THE TEST GETS TO MAIN ME FROM THE . IF THIS 
* ETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
* IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 
*® 
° : |» aaa aman tata hata ha eal ahi laa ren aeaia aha 
012242 is 
012242 000004 SCOPE 
012244 004737 005166 JSR PC,PRETST :G0 SET UP PRETEST DATA 
012250 012630 012262 000005 WORD IST, 208 5 [DATA USED BY PRETST 
3009 012256 004737 002772 JSR PC. CLRMAP ?CLEAR ALL te REGISTERS 
3010 012262 012704 00003 208: MOV # :DO 35 ACCESSES 
3011 012266 012737 170400 172354 MOV WSS Re ang 3 START nt ADDRESS 8k FROM UNIBUS 
3012 012274 012737 170400 001210 MOV #170400, $TMP6 VE IT TO $TMP6 ALS 
3013 012302 005037 001330 2$: CLR PCPUER =CLEAR ERROR CONDITION LOCATION 
3014 012306 012737 000020 001326 MOV ATIMOUT,CPUEXP TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3015 012314 013700 140000 MOV 140000,R0 :TRY TO READ ADDRESS POINTED TO BY PAR6 
3016 012320 005037 001326 CLR CPUEXP [CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3017 012324 005737 001330 TST PCPUER + SEE IF READ OF ADDRESS TIMED OUT 
3018 012330 001411 BEQ 4$ ‘BRANCH IF REFERENCE WAS GOOD 
3019 012332 062737 000200 172354 3$: ADD #200, KIPAR6 STRY NEXT 4K BLOCK OF MEMORY 
3020 012340 062737 000200 001210 ADD #200. $TMP6 [ADD 200 TO $TMP6 ALSO 
3021 012346 077423 $0B R4 2$ :SUBTRACT 1 FROM R4 AND BRANCH IF NOT DONE 
3022 012350 104010 ERROR +10 NO UNiBUS ADDRESSES RESPOND 
3023 012352 000574 BR SIZEJO [BRANCH TO SIZE JUMPER SECTION 
3024 012354 013737 172354 172352 4$: MOV KIPAR6,KIPARS :PUT PAR6 INTO PARS 
3025 012362 013737 001210 001206 MOV STMP6,$TMPS :DO SAME TRANSFER 
3026 012370 042737 170000 172352 BIC #170000, KIPARS [MAKE PARS A NON UNIBUS ADDRESS 
3027 012376 042737 170000 001206 BIC #170000.$TMP5 :CLEAR SAME BITS 
3028 012406 012737 173214 120000 MOV #173214.120000 PUT RANDOM NUMBER INTO TEST LOCATION BY FAST BUS 
3029 012412 012737 000020 001326 MOV #TIMOUT.CPUEXP :TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3030 012420 013701 140000 MOV 140000,R1 ‘READ TEST LOCATION BY UNIBUS 
3031 012424 005037 001326 CLR CPUEXP [CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3032 012430 022701 173214 CMP #173214,R1 [SEE IF DATA WAS READ PROPERLY 
3033 012434 001406 BEQStié*SS; [DATA OKAY NOW VERIFY DATA PATH 
soRe O1t78 020001 CMP RO,R1 sSEE IF DATA CHANGED FROM FIRST READ 
35 012440 001004 BNE [BRANCH AROUND NEXT TRY IF SO 
3036 012442 062757 000200 172354 ADD #200, KIPAR6 STRY NEXT 4K BLOCK vo 
3037 012450 077464 SOB CH BACK TO TRY NEXT 4K BLOCK 
3038 012452 012701 006100 5$: MOV #PATRNS ,R1 3LOAD ADDRESS OF BIT PATTERNS IN R1 
3039 012456 012702 140000 MOV #140000.R2 LOAD VIRTUAL ADDRESS INTO R2 
3040 012462 012703 000007 MOV #7,R3 ‘bo 7 PATTERNS 
3041 012466 012737 000020 001326 MOV #TIMOUT, CPUEXP ro MEOUTS MIGHT OCCUR IN THIS TEST. 
3042 012474 011112 6$: MOV (RI), (Re) [LOAD COUNT INTO TEST LOCATION VIA U.B. 
3043 012476 021112 CMP (R1). (R2) [COMPARE COUNT WITH DATA READ 
3044 012500 001426 BEQ 10$ SBRANCH IF DATA MATCHES 
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SEQUENCE 
TEST # 5 = DATA PATH, UNIBUS TO MAIN MEMOR 
5 012502 ap 001174 MOV (R1) ,STMPO sMOVE EXPECTED PATTERN TO S$TMPO 
$ 01 298 11237 001176 MOV (Re) ,STMP1 ;MOVE RECEIVED PATTERN TO STMP1 
012512 011 38 MOV (R2) ,=(SP) PUT DATA ON STACK FOR DATEXT SUBROUTINE USE 

3048 012514 004737 003624 JSR PC ,DATEXT SUBROUTINE TO LOAD ghey 

9 01 268 R118 MOV (Ri) ,=(SP) PUT PATTERN ON STACK FOR PATEXT SUBROUTINE USE 

50 0125 yp te 005030 JSR ‘ PATEXT 760 SET DATA INTO PATTOR AND PATAND 

51 012526 012737 012536 001106 MOV #7$,SLPERR 3SET 1 ON ERROR POINTER TO 61$ 

26 125 000403 BR ZBRANCH 0 VER LOOP ON ERROR SECTION 

53 012536 011112 7$: MOV RI), (R2) OAD COUNT INTO TEST LOCATION VIA U.B. 

54 012540 021112 CMP (R1), (R2) : COMPARE COUNT WITH DATA READ 
3055 012542 001401 BEQ BRANCH IF OK NOW 
so29 815222 Net's: 8$: ERROR +204 REPORT ERROR(S) ON UNIBUS DATA PATH 

57 012546 032777 001000 166362 9$: BIT #B1T9,aSWR 7SEE IF LOOP ON ERROR IS SET 
3058 012554 001370 BNE 7$ sBRANCH BACK _IF att, 
3059 012556 062701 000002 10$: ADD #2,R1 sMOVE TO NEXT PATTERN 
3060 012562 077334 $08 R3,6$ ;DECREMENT LOOP CCUNTER AND wy IF NOT DONE 
3061 012564 005037 001326 CLR CPUEXP SCLEAR_CPUEXP = NO TIMEOUTS FOR A WHILE 
s008 012570 005737 001320 TST ERRCNT [WERE THERE ANY ERRORS ON THIS TEST 
3063 012574 001405 BEQ 11$ ;BRANCH IF NO ERRORS ON THIS TEST 
3064 012576 005337 001110 DEC SERTTL 3DON'T COUNT ERROR +11 AS ANOTHER ERROR 
3065 012602 005337 001320 DEC ERRCNT SAME AS 
3066 012606 104011 ERROR +11 ;SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 
3067 012610 023737 001206 172352 11S: CMP STMP5S ,KIPARS zMAKE SURE PARS CONTAINS EXPECTED CONTENTS 
3068 012616 001404 BEQ TST6 CH IF OK 
3069 012620 104030 ERROR +30 ;KIPARS NOT LOADED PROPERLY - SKIPPING NEXT TEST 
3070 012622 013737 001206 172352 MOV STMPS ,KIPARS TRESET KIPARS FOR EXECUTION OF NEXT TEST 
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T RELOCATE IF NOT ENABLE 


000006 
177572 


172352 


001326 
140000 


SEQUENCE 


. SBTTL TEST # 6 = MAP DOESN'T RELOCATE IF NOT ENABLED 


{AAA REEEEAEREAEREEAEEEAKREREEREEREEREEEKEEEEEKERERERE 


tSTEST é MAP DOESN'T RELOCATE IF NOT ENABLED 
3;* 
je THIS T TEST VERIFIES THAT THE UNIBUS MAP DOES NOT RELOCATE IF BITS 
j* OF IS NOT THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 
3* RUN mUCCE SSE ULLY hiv LEFT KIPAR6 POINTING TO THE FIRST UNIBUS 
* MAPPING REGISTER THAT THE UNIBUS MAP WILL RESPOND TO GREATER 
ze THAN OR EQUAL TO MAPREG #2. KIPARS IS ALSO POINTING TO THE 
* SAME MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. 
* THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 
j* AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 
* MAP IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 
** 
ITT ITI TIT ITIIITITITT TTT TILL iti Tiiitiiiiti titi iii iti tii iti hitl 
TST6: SCOPE 
JSR PC,PRETS :G0 SET UP PRETEST DATA 
.WORD SIZEJO, 308.6 ‘DATA USED BY PRETST 
BIS #81TO,MMRO :TURN MEMORY MANAGEMENT BACK ON 
MOV KIPAR6,RO ‘PUT UNIBUS ADDR ESS OF MAP REGISTER IN RO 
ASH ‘- =5 RO ‘RIGHT SHIFT RO 5 PLACES 
BIC 177400,R0 [CLEAR UPPER BYTE 
BIC #177000. KIPARS ‘MAKE KIPARS ACCESS THE FAST BUS 
MOV #021042.(RO)+ :SET BOTTOM BIT IN EACH ALU 
MOV #42, (ROS ‘SET BOTTOM BIT U 
CLR 0600 ZCLEAR TEST LOCATION VIA FAST 
20$: MOV #TIMOUT,CPUEXP :TI IGHT IN THIS TEST. 
MOV #43207,140000 LOAD TEST LOCATION VIA UNIBUS THIS LOAD SHOULD NOT BE 
sRELOCATED BY THE UNIBUS MAP, SINCE BIT0S OF MRS IS CLEAR. 
CLR CPUEXP [CLEAR CPUEXP = NO TIMEOUTS FOR A WHIL 
MOV 120000.,R3 ‘READ TEST LOCATION VIA FAST BUS 
CMP #43207.R3 [SEE IF DATA MATCHES 
BEQ SIZEJO ‘BRANCH IF DATA GOOD 
ERROR +12 [MAP RELOCATED WHEN NOT ENABLED 
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DETERMINATION OF FIRST USEABLE MAP REGIST 

ie .SBTTL DETERMINATION OF FIRST USEABLE MAP REGISTER 

104 $3 RRREREERERRERERERERRERERERERERARAERHRHAREREEEAHAKRERRERERERARES 

105 3* 

106 i THIS TEST DETERMINES THE SETTING OF THE JUMPERS ON THE UNIBUS 
3107 te MAP WHICH THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 
3108 8 THE WUMPER RANGE. THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 

109 ie TO ADDRESSES 000000 - 757776 ON THE UNIBUS. IF THE JUMPERS ARE 

110 * NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 
111 3* >>>>>> NOTE <<< KKK 
3112 ie THIS IS THE FIRST. TEST IN WHICH THE UNIEUS MAP IS TURNED ON. 

** 

ai ‘: REAAKAAKAEKAAEEAKAAAAEEEEAEAEREAEAAAAAAAAARAKRAAAAREEAAREEAREKRAEREEE 

115 012744 012705 020100 $1ZEJ0: MOV #SDDWO,RS :PUT ADDRESS OF $DDWO IN RS 
3116 012750 012700 170200 MOV #MAPLO.RO [LOAD ADDRESS oF FIRST MAP REGISTER IN RO 
3117 012754 012701 000040 MOV #40, RI :d0 Aus ao REGISTERS 
3118 012760 012702 006000 MOV #SPECST,R2 T Re TO BEGINING OF SPECIAL STACK 

119 012764 012720 020000 1$: MOV #0000. (RO) + POAD YG K INTO LOWER 16 BITS AND 
3120 012770 005020 CLR (RO)+ [CLEAR THE UPPER 6 BITS 
3121 012772 005022 CLR (R2)+ [CLEAR THE SPECIAL STACK LOCATION 
3122 012774 077105 S$0B R1,1$ TBRANCH IF THERE ARE MORE TO LOAD 
3123 012776 012703 006000 MOV #SPECST RS SRESET SPECIAL STACK POINTER 
3124 013002 052737 000040 172516 BIS #BITS MARS STURN ON MAP RELOCATION 
3125 013010 052737 000001 177572 BIS #81T0.MMRO [MAKE SURE MEMORY MANAGEMENT IS ON 
3126 013016 012700 117776 MOV #117776,RO STHIS WILL BE USED TO SELECT PAR 4, ADDRESS 17776 
3127 013022 012737 170000 172350 MOV #170000.KIPAR4 :LOAD MAP REGISTER 0 -200 IN KIPARG 
3128 013030 012702 12525 MOV #125252.R2 [CONSTANT TO LOAD INTO LOCATION 17776 
3129 013034 012737 177777 001174 MOV #-1,$TMPO :MOVE -1 TO MAP REGISTER POINT 
3130 013042 012737 177777 003532 MOV <1 FTTHRU S INITIALIZE ONE TIME ENTRANCE FLAG IN SUBROUTINE 
3131 013050 012737 037776 001310 MOV #37776,UBM24L  :MOVE TEST CELL ADDRESS TO LOCATION UBM24L 
3132 013056 005037 001312 CLR UBM24U [CLEAR UPPER LOCATION UBM24U 
3133 013062 012737 013070 001106 MOV #2$,$LPERR [MOVE LOOP ON ERRROR ADDRESS TO S$LPERR 
3134 013070 012737 000020 001326 28: MOV MTIMOUT,CPUEXP EXPECTING CPU TIME OUT 
3135 013076 004737 003474 JSR PC, TSTLOC 360 TO SUBROUTINE TO SEE IF LOCATION RESPONDS 
3136 013102 000417 BR 3$ ;RETURN IS HERE IF LOWEST FOUND 
3137 013104 005037 001326 CLR CPUEXP [CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3138 013110 004737 005230 JSR PC,DSABLD £60 SEE IF REGISTER SHOULD BE DISABLED 
3139 013114 104214 ERROR +214 REGISTER DISABLED WHEN SHOULD BE ENABLED 
3140 013116 062737 000200 172350 ADD #200 MAP TO NEXT REGISTER 
3141 013124 022737 177400 172350 CMP 4577400, See ARs [SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
3142 013132 001356 BNE 2$ [GO TEST NEXT MAP REGISTER IF 
3143 013134 104013 ERROR +13 ZFATAL ERROR, RESTARTING PROGRAM. 
3144 013136 000137 010000 JMP START ‘JUMP TO RESTAR * PROGRAM 
3145 013142 005037 001326 3$: CLR CPUEXP [CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
3146 013146 004737 005266 JSR PC ENABLD :GO CHECK TO SEE IF REGISTER SHOULD BE ENABLED 
3147 013152 104213 ERROR +24 [MAP REGISTER ENAE'LED WHEN SHOULD BE DISABLED 
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MACRO M1113 ersfhase 11:08 PAGE 64 
USEABLE MAP REGISTE 


001270 


001260 
177400 


SEQUENCE 76 


~-SBTTL SECTION TO DETERMINE NUMBER OF USEABLE MAP REGISTERS 


SREAEEAAEAAEAAAAAAAAAAAREAEAAAEAARARAAARARAAAERAAAEAEAAAAAAEREAAEREE 


i THIS SECTION DETERMINES THE NUMBER OF USEABLE MAP REGISTERS BY ACCOM- 
8 PLISHING THE SAME LOCATION ACCESS TEST AS IN THE PREVIOUS SECTION. 
**® 
ep pea oo RT gen gare ype ype 
$j $TMPO MRL OW ZMOVE REGISTER NUMBER FOUND USEABLE TO MMRLOW 
MOV KIPAR4 LOWEST zMOV E LOWEST USEABLE REGISTER TO LOWEST 
CMP #170000, LOWEST SEE if LOWEST REGISTER FOUND WAS THE LOWEST 
BEQ 1$ CH AROUND SETUP IF IT 
CLR UBRLOW “MAP REGISTER 0 1S LOWEST FOR UNIBUS MEMORY 
MOV #170000 .UBMLOw [MOV V OF UB MEMORY Ow 
MOV $TMPO ,UBRHI [MOVE TER NUMBER FOUND TO UBRHI 
DEC UBRHI [POINT IT AT HIGHEST UB MEMORY MAP REGISTER 
MOV KIPARG UBMHI § :MOVE KIPAR4 TO UNIBUS MAP HI 
SUB 200 io" SUBTRACT ROM IT T NT TO LAST USEABLE UBMEM PAGE 
MOV 477% O,HIGEST :MOVE HIGHEST REGISTER TO HIG 
MOV #31 _MMRHI ‘POINT TO LAST USEABLE MAP 
BR SMSG [GO TYPE MESSAGE OF NON-DEFAULT INFORMATION 
1$: MOV rss SLPERR TSET L OR TO 3$ 
ADD 5 KIPARG [MAP TO NEXT REGISTER 
BR 38 [BRANCH OVER POST-TSTLOC CODE 
2$: CLR [CLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
ADD 420 KIPARG [MAP TO NEXT REGISTER 
CMP #200 KIPARG TSEE IF ALL MAP REGISTERS HAVE BEEN TRIED 
BEQ 4 ‘BRANCH IF ALL ARE DONE 
JSR PC, ENABLD [GO SEE IF MAP REGISTER SHOULD BE ENABLED 
ERROR +2 [MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
3$: MOV #TIMOUT,CPUEXP TIMEOUTS MIGHT OCCUR IN THIS TEST. 
JSR PC, TSTLOC [GO TO SUBROUTINE TO SEE IF IT RESPONDS 
BR 2$ SRETURN IS HERE IF IT WAS L 
CLR CPUEXP [CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
JSR PC ,DSABLD SRETURN IS HERE IF NOT LOADED - GO SEE IF 
SREGISTER SHOULD SABLED 
ERROR +214 [MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
4$: MOV $TMPO,.MMRHI SMOVE REGISTER FOUND TO MMR 
DEC WAR} I ‘DECREMENT TH - rh 
MOV IPAR4,HIGEST :MOVE FIRST UNUSABLE REGISTER TO HIGEST 
CMP NIGeST. °#177400 :SEE IF UPPER JUMPER IS DE 
BEG NOMSG ‘BRANCH AROUND MESSAGE TYPEOUT IF IT IS DEFAULT 
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CKKUADO 11/24/44 UBI MA MACRO m1113, 26-OCT-81 11:08 PAGE 65 SEQUENCE 77 
SETERMINE UMUSEABLE-MAP REGISTER WINDOW. SIZE 
188 .SBTTL DETERMINE UNUSEABLE MAP REGISTER WINDOW SIZE 
| 189 FF RAAAARAARAAAEEEARARAEREEEAEEEEAAEAREAERARAERERAREREAERARRERREEREEKRE 

3140 :* THIS SECTION PERFORMS THE SAME LOCATION ACCESS TEST PREVIOUSLY DONE 

191 is LOOKING FOR THE FIRST ACCESSIBLE REGISTER, OR THE UPPER LIMIT. ONCE 
3192 :* FOUND, THE SIZE OF THE WINDOW HAS BEEN DETERMINED AND THE MESSAGE 
3190 ;* TELLING THE USER OF THE SIZE IS PRINTED. 

-* 

3195 OP ea IT Poy peor pe, 
3196 013402 013737 001260 001262 Sizev2: HIGEST UBMLOW MOVE UPPER LIMIT TO UBMLOW LOCATION 
3197 013410 062737 000200 001262 ADD «#200, UBMLOW 1 UBMLOW TO FIRST USABLE “UNIBUS MEM PAGE 
3198 013416 013737 001174 001272 MOV STMPO-UBRLOW © SMOVE REGISTER NUMBER. TO UBRLOW 
3199 013424 012757 013460 00106 Mov #28, S$/PERR [SET LOOP ON ERROR TO 2$ 
3200 013432 000472 BR : BRANCH OVER CHECK FOR NON-EXISTENT LOCATION 
3201 013434 062737 000200 172350 18: ADD $300,K ARS MAP TO NEXT REGISTER 
3202 013442 022737 177400 172350 CMP #177400 KIPARG TSEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
3203 013450 001414 BEO 3$ 7GO INITIALIZE UBMHI IF WE ARE 
3204 013452 004737 005230 JSR —- PC, DSABLD 7GO SEE IF LOCATION SHOULD BE DISABLED 
3205 013456 104214 ERROR +214 MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
3206 013460 012737 000020 001326 28: MOV = #TIMQUT CPUEXP TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3207 013466 004737 003474 JSR —- PC, TSTLOC :GO TO SUBROUTINE TO SEE IF IT DOESN'T RESPOND 
3208 013472 000403 BR RETURN IS HERE IF IT WAS LOADED - GO INITIALIZE UBMHI 
3209 013474 005037 001326 CLR CPUEXP {CLEAR CPUEXP. = NO TIMEOUTS FOR A. WHIL 
3210 013500 000755 BR 15 RETURN IS HERE IF NOT = GO BACK FOR ANOTHER TRY 
3211 ZAT THIS POINT. KIPARG POINTS JUST ABOVE HIGHEST ADDRESS OF UNIBUS MEMORY 
3212 013502 005037 001326 38: CLR CPUE XP :CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3213 013506 004737 005266 JSR PC-ENABLD :GO SEE IF MAP REGISTER SHOULD BE ENABLED 
3214 013512 104213 ERROR +9 :MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
3215 013514 013737 172350 001276 MOV  KIPAR4,BUPWIN  : MOVE THIS VALUE TO °B'EGINING UP'PER *WIN'DOw 
3216 013522 013737 172350 001264 MOV -«KIPAR4,UBMHI =: MOVE T THIS TO UBMHI ALSO 
3217 013530 013737 001174 001274 MOV —«- $TMPO, UBRHI [MOVE MAP REGISTER POINTER TO UBRHI 

3218 013536 005337 001274 DEC UBRHI :DECREMENT THIS VALUE - IT IS ONE TOO MANY 
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013574 
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SEQUENCE 78 


-SBTTL ROUTINE TO PRINT THE WINDOW SIZE MESSAGE 


ismsc: TST. SPASS. eSEE IF THIS IS FIRST PASS 


VESMSG: TST 


1$: TYPE 


4$: TYPE 


SPASS 
N 


.SCRLF 
#SPECST RS 
NOMSG 

, TOMSG 
#SPECST,R3 
~(R3) ,-(SP) 
»SCRLF 
~(R3) 

4$ 

(R3) ,-(SP) 
3$ 

oSCRLF 


SEE IF THIS IS FIRST PASS 
SBRANCH TO NEXT SECTION IF NOT FIRST PASS 
ee IN DEFAULT = FOR INFO ONLY 


60 TYPE THE DATA 


:TYPE THE TIMEOUTS MESSAGE 


SRESET R RS 

‘PUSH THE REGISTER # ONTO THE STACK IN ORDER IT WAS PUSHED 
i Tipe wt rip IN DECIMAL, LEADING ZEROS SUPPRESSED 

SEE IF THERE IS ANOTHER REGISTER NUMBER TO PRINT 

‘BRAN CH AROUND SETUP IF NONE 

sPUSH THIS NUMBER ON 7" STACK 

‘BRAN CH BACK TO PRINT IT 

3; TYPE ONE MORE <CRLF> 


8 7 
CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE 67 SEQUENCE 
SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 
43 .SBTTL SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 
rf: JF ARAAAAAAAAAARAARERAERAEEEERERERARAAAERERERAARRERERERARRERERREREREE 
4 33 
46 * SETUP POINTERS TO THE LOWEST AND THE HIGHEST USABLE 
47 ie MAPPING REGISTERS TO CONTINUE WITH TEST. 
49 : PUTT TT TT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TT TT TTT TTT TTT TTT TTT TTT 
50 01 3646 010546 SG: MOV R5,-(SP) :SAVE RS 
51 oi 50 013705 001256 MOV Lowest RS sMOVE PAR DATA TO RS FOR CONVERSION 
3 13654 042705 170000 BIC #170006,R5 SCLEAR BITS 15 TO 
5 013660 072527 17777 ASH #-5.R SSHIFT INDICATOR BITS TO THE RIGHT 5 PLACES 
54 01 052705 170200 BIS #170200,R5 [FORM ADDRESS 
55 013670 010537 001300 MOV R5,LREG + SAVE RESULTS 
36 013674 012605 MOV (SP)+,R SRESTORE R 
3357 013676 013737 001300 001302 MOV LREGL ,LREGU [MOVE ADDRESS TO LREGU 
3258 013704 062737 000002 001302 ADD #2, LREGU ;POINT TO UPPER 6 BITS OF MAP REG 


—— 
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— 
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¢ 7 
cores 11/24/44 UBI MAP MACRO Qt om 11:08 PAGE 68 SEQUENCE 80 
TEST # 7 = ENSURE THAT THERE IS NO DUAL MAPP 


3277 .SBTTL TEST # 7 = ENSURE THAT THERE IS NO DUAL MAPPING 
J AAAAARAERAAARAEAERERREEEEEEREEREEEREEEEEEEEREREREEERREREREEEREREE 
:#TEST 7 ENSURE THAT THERE IS NO DUAL MAPPING 
* THIS TEST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
* ALL THE MAP REGISTERS EXCEPT THE ONE UNDER TEST, AND LOADS 
3* THAT ONE WITH 0004 IF MAP RELOCATION IS ENABLED (AND 
3* IN THIS TEST IT IS), SUBROUTINE CLEARS ALL 
* LOWER 16 BITS OF MAPL1, AND LOAD THERE. THIS IS SO 
ie IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
* PROPER LOCATIONS. THE TEST THEN us § A VIRTUAL ADDRESS 
* TO SELECT THAT MAP REGISTER AND ADD 17776, SO THAT IT SHOULD 
i* REFERENCE ADDRESS 00057776 (00037776 IF MAPL1 CONTAINS 20000 
* AS PER CONDITIONS DESCRIBED ABOVE). A REFERENCE IS MADE THR 
* ACH OF THE REGISTERS AND AM THAT FETCH THE CORRECT DATA ARE 
* CHECKED EE THAT IT WAS THE MAP REGISTER UNDER TEST. IF 
* NOT, BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 
i* ARE REPORTED. 
** 
> ‘ MERA ASASASSASZALLLESLALLESCLASLELALLE LSS ELE EEE EERE ERECT PTT TT TP PT ES 
013712 +817: 
013712 000004 SCOPE 
013714 004737 005166 JSR PC,PRETST :G0 SET UP PRETEST DATA 
013720 014616 014260 000007 .WORD T1ST10,20$,7 ;DATA USED BY PRETST 
3278 013726 005037 172516 CLR MMR3 AR MAR3 
3279 013732 005037 001312 CLR UBM24U ICLEAR THE UPPER EXPECTED LMA LOCATION 
3280 013736 052737 000060 172516 BIS #60,MMR3 TENABLE 22-BIT ADDRESSING AND MAP RELOCATION 
3281 013744 004737 002772 JSR PC, CLRMAP : CLEAR ALL MAP REGISTERS 
3282 013750 042737 000001 177572 BIC #1.MMRO OFF MEMORY MANAGEMENT 
3283 013756 005037 001174 CLR $TMPO ‘ STMPO 1S USED AS A FLAG IN THIS TEST 
3284 013762 012703 117776 MOV #117776,R3 ‘SELECT P.A.R. 4 OFFSET OF 17776 
3285 013766 013702 001300 MOV LREGL ,R2 :PUT ADDRESS OF LOWEST USABLE MAP REGISTER IN R2 
3286 013772 013700 001256 MOV LOWEST ,RO :LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 
3287 013776 052737 000001 177572 BIS #1,.MMRO [MAKE SURE MEMORY MANAGEMENT 1S ON 
3288 014004 005037 001320 CLR ERRCNT CLEAR THE ERROR COUNT FOR ERROR 202 BELOW 
3289 014010 013737 001256 172350 100$: MOV LOWEST .KIPAR4 AR OF LOWEST USEABLE MAP REGISTER IS LOADED IN KIPAR4 
3290 014016 02270¢ 170204 CMP #MAPLOI,R2 CEE IF WE ARE POINTING AT MAPL1 
3291 014022 00100 BNE 1$ ‘BRANCH IF NOT 
3292 014024 022712 020000 CMP #20000, (R2) [SEE IF IT CONTAINS 20000 (FOR APT USE) 
3293 014030 001410 BEQ 2$ *BRANCH IF SO 
3294 014032 012712 040000 1$: MOV #40000 (R2) [LOAD MAP REGISTER UNDER TEST AHTH 8k BASE 
3295 014036 010237 057776 MOV 57776 :LOAD TEST LOCATION WITH THE AD 
3296 THE MAP REGISTER UNDER fesy 
3297 014042 012737 057776 001314 MOV #57776, UBM24P Move ANTICIPATED ADDRESS TO LOCATION UBM24P 
3298 014050 000405 BR 3$ ‘BRANCH OVER LOCATION 
014052 010237 037776 2$: MOV R2,37776 ‘LOAD TEST LOCATION WITH THE ADDRESS 
3 ZOF THE MAP REGISTER UNDER TEST 
3301 014056 012737 037776 001314 MOV #37776,UBM24P  :MOVE ANTICIPATED ADDRESS TO LOCATION 
3302 014064 162737 000200 172350 38: SUB #200, KIPAR4 [PREPARE KIPAR4 FOR FIRST "ADD 200° 
303 014072 062737 000200 172350 4$: ADD #200, KIPAR4 ‘TRY NEXT MAP REGIST 
3304 014100 005037 001330 41$: CLR E 3CLEAR THE ERROR RECE 
305 014104 012737 017776 001310 MOV #17776, UBM24L VE DEFAULT LMA ADDRESS TO UBM24L 
306 014112 020037 172350 CMP RO, KIPAR4 SEE IF REGISTER UNDER test. IS POINTED TO BY KIPAR4 
307 014116 901003 BNE 458 CH AROUND SETUP IF NOT 
308 014120 013737 001314 001310 MOV UBM24P ,UBM24L {MOVE SPECIAL LMA ADDRESS TO LOCATION 
3309 014126 012737 000020 001326 45$: MOV #TIMOUT .CPUEXP [POSSIBLE NON-EXISTENT MEMORY 
3310 014134 011304 MOV (R3) ,R4 “READ THROUGH THE MAP REGISTER 
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11/24/44 UBI MAP MACRO M1113 ae 11:08 PAGE 88-1 SEQUENCE 81 


;BRANCH IF SO 
2 005737 001276 172350 CMP BUPWIN,KIPAR4  ;SEE IF WE “ POINTING TO THE UPPER WINDOW START 
0 001365 BNE 9$ sBRANCH BACK FOR Sener INCREMENTING SET IF NOT 
2 00061 BR 41$ :GO BACK FOR AN 
4 005737 001174 10$: TST STMPO 7SEE THAT THERE NUAS A SUCCESSFUL MATCH 


CKKUADO 
TEST # 7 = ENSURE THAT THERE IS NO DUAL MAPP] 
311 014136 005037 001326 CLR CPUEXP ZNO MORE TIMEOUTS FOR AWHILE 
le 014142 005037 CLR ERRCNT [CLEAR ERROR COUNT 
31 014166 005737 00 TST PCPUEP SSEE IF THERE WAS AN ERR ROR 
314 14152 001110 BNE RS ‘BRANCH AROUND DATA TEST IF SO 
15 014154 0 0402 CMP R4,R2 SEE IF CORRECT DATA WAS FETCHED 
316 014156 00107 BNE CH IF NO MATC 
317 014160 032777 004000 164750 BIT #B1T11,aSWR iSEE IF THIS 1S AN 11/26 WITH UB MEM ONLY 
318 014166 001406 BEQ 49$ ‘BRANCH IF NOT 
319 014170 013737 177736 001304 MOV LMAHI , LMAH ‘SAVE LMA HIGH REG IN LMAH 
3320 014176 013737 177734 001306 MOV LMALOW, LMAL SSAVE LMA LOW REG IN LMAL 
3321 014204 020037 172350 49$: CMP RO, KIPAR4 SSEE IF mae REGISTERS ARE THE SAME 
322 014210 001455 BEQ 5 [BRANCH IF CORRECT MAP REGISTER WAS USED 
3323 014212 004737 005076 JSR PC, CHKLMA :G0 CHECK FOR 11/24 WITH UB MEMORY ONLY 
3324 O14216 001304 001306 .WORD LMAH,LMAL TADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 
3325 014222 000450 BR SRETURN IS HERE IF MATCH ACHIEVED 
3326 014224 011337 001202 MOV (R3) ,STMP3 SSAVE CONTENTS FOR ERROR PRINTING 
3327 014230 013746 001202 MOV STMPS,-(SP) ‘MOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 
3328 014234 013746 172350 MOV KIPAR4,-(SP) | :MOVE PAR4 CONTENTS TO STACK FOR SUBROUTINE USE 
3329 014240 004737 003674 JSR PC ,ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
3330 014244 010246 MOV R2.=(SP) :PUT ADDRESS OF REGISTER ON STACK FOR DATEXT USE 
3331 014246 013746 172356 MOV KIPAR7,=(SP) MOVE PAR CONTENTS TO STACK FOR SUBROUTINE USE 
3332 014252 004737 003624 JSR PC ,DATEXT <G0 SET DATA IN DATAOR AND DATAND 
3333 014256 000424 BR 46$ [BRANCH OVER LOOP ON ERROR SETUP 
3334 014260 02040 20$: CMP R4,R2 [SEE IF CORRECT DATA WAS FETCHED 
3335 014262 00102 BNE ‘BRANCH IF NO MATCH 
336 014264 032777 004000 164644 BIT #B1T11,aSWR [SEE IF THIS IS AN 11/24 WITH UB MEM ONLY 
3337 014272 0014 BEQ 59$ ‘BRANCH IF NOT 
3338 014274 013737 177736 001304 MOV LMAHI,LMAH SSAVE LMA HIGH REG IN LMAH 
3339 014302 013737 177734 001306 MOV LMALOW, LMAL ‘SAVE LMA LOW REG IN LMAL 
3340 014310 020037 172350 59$: CMP RO, KIPAR4 [SEE IF MAP REGISTERS ARE THE SAME 
3341 014314 001406 BEQ 47$ ‘BRANCH IF CORRECT MAP REGISTER WAS USED 
3342 014316 004737 005076 JSR PC, CHKLMA :GO CHECK FOR 11/24 WITH UB MEMORY ONLY 
3343 014322 001304 001306 .WORD LMAH,LMAL SADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 
3344 014326 000401 BR 47$ SRETURN IS HERE IF MATCH ACHIEVED 
3345 014330 104210 46$: ERROR +210 [DUAL MAPPING ERROR IN THE UNIBUS MAP 
3346 014332 032777 001000 164576 47$: BIT #BIT9,aSWR [SEE IF LOOP ON ERROR IS SET 
3347 01434 001347 BNE 20$ [BRANCH BACK IF SO 
3348 014342 000414 BR 8$ ‘BRANCH AROUND ADDRESS MATCH SETTING 
3349 014344 005237 001174 5$: INC $TMPO 'SET FLAG WHEN ADDRESSES MATCH 
3350 014350 000411 BR 8$ [BRANCH AROUND SUBROUTINE CHECK = NOT NEEDED 
3351 014352 004737 005076 6S: JSR PC, CHKLMA £60 CHECK FOR 11/24 WITH UB MEMORY ONLY 
335¢ 014356 001304 001306 . WORD LAH, LMAL SADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 
3353 014362 000401 BR § SRETURN IS HERE IF MATCH ACHIEVED 
354 014364 000403 BR 8$ [BRANCH OVER LMA SPECIFIC COMPARE CODE 
355 014366 020037 172350 7$: CMP RO, KIPAR4 [SEE IF MAP REGISTERS ARE THE SAME 
3356 014372 001764 BEQ 5$ ‘BRANCH IF CORRECT MAP REGISTER Ws USED 
3357 914574 020737 177400 172350 8$: CAP #177400, KIPAR4 +SEE IF LAs REGISTER. HAS BEEN TRIED 
3328 014404 Oo sas9 001260 172350 CMP HIGEST.KIPARS  2SEE IF ALL HAVE BEEN TRIED 
3360 014412 001227 BNE 4$ [BRANCH IF STILL MORE TO TRY 
3361 014414 062737 000200 172350 98: ADD #200, KIPARG [MAP TO NEXT MAP REGISTER 
3362 014422 022737 177400 172350 CMP #177400, KIPAR4 SEE IF WE ARE AT THE TOP 
3363 0144 001405 BEQ TO CONTINUE 
0144 
0144 
0144 
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12$: 
13$: 


14$: 


15$: 
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MACRO M1113 26-OCT-81 11:08 PAGE 68-3 
MAPPING 


R2,-(SP) 
KIPAR7,=(SP) 
PC ,ADREXT 
+210 

$TMPO 
#MAPLO1,R2 
#40000, (R2) 
37776 

13$ 

(R2) 
#200,RO 
#4,R 
#177400,RO 
HIGEST,RO 
14$ 

100$ 
#200,RO 
#177400,RO 


SEQUENCE 


sBRANCH IF THERE WAS 

3PUT ADDRESS OF ap st by ON STACK FOR ay tl USE 

PUT PAR ON STACK FOR SUBROUTINE ADREXT USE 

360 SET DATA_IN THE 4 WORDS OF ADDROR AND AD 
yy NG ERROR_IN THE UNIBUS MAP 


3 DUAL ING ER 
ZCLEAR FLAG FOR NEXT REGISTER 
;SEE 4 ROI IS POINTING TO MAPL1 


BRANCH IF NOT 
DOES MAPL1 CONTAIN 40000? 
ONLY rH ata IS TO BE LEFT ALONE 


INT TO NEXT TER TO LOAD 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO NEXT SECTION IF S$ 

2 SEE IF ALL MAP REGS HAVE BEEN TESTED 
CH IF NO MORE TO TEST 

$ JUMP TO BEGIN AGAI 

;POINT TO NEXT MAP REGISTER UNDER TEST 

;POINT TO NEXT MAP REGISTER TO LOAD 

+SEE 4 LAST me tH HAS = TRIED 

H TO NEXT sartee 
SEE IF s ARE POINTING 0 UPPER WINDOW START 
BRANCH FOR ANOTHER INCREMENT SET IF NOT 


R 
ORS 
= OR +16 AS ANOTHER ERROR 
z SUMMARY CF DUAL MAPPING ERRORS 
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CKKUADO 11/24/44 UBI MAP SEQUENCE 
TEST # 10 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
3408 .SBTTL TEST # 10 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
J RRAARAEAAEAERERERAEAEEEEREERAEERREEEERERERRERERERREREEREREREEREEREE 
S*TEST 10 LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
ie 
ie THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 
* ADDRESS 00007 j 6 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
i MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
*® 
: : RAEAEAAAEREAAREKAAERERAARERERAEEEEARAAKRARAAEAAARAARARAAEARAAREKAAREREAREKEEE 
014616 +8110: 
014616 SCOPE 
014620 bo weet, 005166 JSR PC ,PRETST 360 SET UP PRETEST DATA 
014624 015072 015030 000010 .WORD TST11,20$,10 :DATA USED BY PRETST 
3409 014632 042737 000040 172516 BIC #B1T5.MAR TURN OFF MAP RELOCATION 
3410 014640 012737 000400 172350 MOV #400, KIPAR4 IMAP PAGE 4 TO 8K 
3411 014646 012700 040000 MOV #40060,RO [STARTING ADDRESS FOR DATA PATTERN 
sie 014652 012701 100000 1$ MOV #100000,R1 : VIRTUAL ADDRES 
3413 014656 012702 010000 MOV 4096. ,R2 [LOAD 4096 LOCATIONS AT A TIME 
3414 014662 010021 2s MOV RO, (R1S+ it OAD PHY. ADDR. INTO EACH MEMORY LOC. 
3415 014664 062700 000002 ADD *RO [POINT TO NEXT PHYSICAL ADDRESS 
3416 014670 077204 S0B R2.2$ [BRANCH IF 4K OF MEMORY NOT LOADED 
3417 014672 062737 000200 172350 ADD é 66 KIPAR4 POINT TO NEXT 4K BANK OF MEMORY 
3418 014700 022737 001000 172350 CMP #1000, KIPAR4 Ele 16k IS LOADED 
3419 014706 101361 BHI 1$ ‘Sr ANeH F MORE MEMORY TO LOAD 
3* 
set :* MEMORY FROM 8K = 16K IS NOW LOADED WITH ITS OWN ADDRESS 
38 
3423 014710 022737 171000 172354 CMP #171000,KIPAR6 :DID I USE ANY MAP REGISTER 
3424 ;BELOW REGISTER 6 (UB. ADDR 100000) 
3425 014716 101465 BLOS _—«*TST11 : ;BRANCH TO NEXT TEST IF NOT 
3426 014720 013700 172354 MOV KIPAR6,RO :LOAD PAR6 INTO RO TO GET 
3427 ZTHE STARTING DATA PATTERN 
3428 014724 072027 ASH #6,RO NOW HOLDS THE STARTING DATA PATTERN 
3429 014730 012701 140000 3$ MOV #140000,R1 i STARTING VIRTUAL ADDRESS 
3430 014734 012702 010000 MOV #4096. .R2 PREPARE TO READ 4K AT A TIME 
3431 014740 011103 4$ MOV (R1) RS MAIN MEMORY THROUGH UNIBUS 
3432 014742 020003 CMP RO,RS :SEE IF THE ADDRESSES MATCH 
3433 014744 001012 BNE 6 SBRANCH IF ERR 
3434 014746 022120 5$ CMP (R1)+, (RO)+ [CHANGE V VIRTUAL & PHYSICAL ADDRESSES 
3435 014750 077205 $08 [BRANCH IF 4K OF MEMORY NOT 
3436 014752 062737 000200 172354 ADD #200, KIPAR6 [POINT TC NEXT BANK OF 4K THROUGH UNIBUS 
3437 014760 022737 171000 172354 CMP 4171000, KIPAR6 ;SEE IF THIS POINTS TO 16k PLUS 
3438 014766 101360 BHI 3$ CH IF 16K OF MEMORY NOT CHECKED 
3439 014770 000430 BR 0$ tTEST yf ANISHED BRANCH 
3440 014772 011146 6$: MOV (R1),-(SP) [PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
3441 014774 013746 172354 MOV KIPAR6,-(SP) = PUT SAR Cb CONTENTS ON STACK FOR SUBROUTINE USE 
42 015000 004737 00367 JSR PC ,ADREXT [GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
3443 015004 010146 MOV 1°=(SP) ‘PUT DATA ON STACK FOR DATEXT TINE 
3444 015006 01 746 172344 MOV KIPAR2,-(SP) | :MOVE PAR CONTENTS 0, STACK FOR SUBROUTINE USE 
3445 015012 004737 003624 JSR PC ,DATEXT : SUBROUTINE T raBtg A OR AND D 
3446 015016 010337 005766 MOV R3.EADRS2 [MOVE DATA IN R3 TO EADRSS FOR ERROR CALL 
3447 015022 005037 005770 CLR EADRS2+2 ‘CLEAR UPPER 6 BITS 
3448 015026 000403 BR 4 BRANCH OVER LOOP Ow PR RORY terup 
3449 015030 011103 20$: MOV (R1) R3 [READ MAIN MEMORY HROUGH UNIBUS 
3450 015032 020003 CMP 0,R3 [SEE IF THE SDDRESSES MATCH 
51 015034 001401 BEQ SBRANCH IF OK 
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CKKUADO 11/24/44 UBI MAP MACRO _M1113 ytd 11:08 PAGE 69-1 SEQUENCE 84 
TEST # 10 = LOAD LOC’S 40000-77776 WITH THEIR ADRES' 


4 150 089777 7$: ERROR +205 sDIDN'T 4 poy toy CORRECTLY FROM UNIBUS 
53 015040 0 001000 164070 8$: BIT #81T9,aSWR SEE IF LOOP ON ERROR IS SET 

54 015046 370 ae a BRANCH BACK IF § 

55 015050 000756 $ sCONTINUE TESTING 

28 015052 0057 001320 10$: TST ERRCNT WERE THERE ANY ERRORS ON THIS TEST? 

57 015056 O81398 BEQ TST11 ;BRANCH IF NO ERRORS ON THIS TEST 

58 015 0053 001110 DEC SERTTL ;DON'T COUNT ERROR +14 AS ANOTHER ERROR 

59 015 005337 001320 DEC ERRCNT 3$ AS ABOV 

60 015070 104014 ERROR +14 ;SUMMARY OF UNIBUS ADDRESS FAILURES 
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CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE 70 SEQUENCE 
TEST # 11 = MAIN MEMORY TIMEOUT THROUGH MAP 
3469 .SBTTL TEST # 11 = MAIN MEMORY TIMEOUT THROUGH MAP 
FRAAARARAAAAAEREAAAREREEERERAEERAARAEAERRERRERERRERREEREREEREEERE 
tSTEST 11 MAIN MEMORY TIMEOUT THROUGH MAP 
te 
3* THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
3* TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
i USABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
+ eS ee er eee heen ee eee eee eee) Cee es 
015072 rT 
015072 000004 S 
015074 004737 005166 JSR PC,PR :GO0 SET UP PRETEST DATA 
015100 015140 015132 000011 . WORD Tsf1g.20 “208, 11 :DATA USED BY PRETST 
3470 015106 052737 000040 172516 BIS :TURN MAP RELOCATION BACK ON 
3471 015114 005037 004312 CLR LOEFL ‘= [CLEAR LOEFLG FOR ERROR LOOP INDICATOR 
3472 015120 012737 000074 001312 MOV ria HBM24U TEXPECTING 74 IN UPPER POSITION OF 11/24 LMA 
3473 015126 005037 001310 CLR UBM24L ZEXPECTING ZERO IN LOWER POSITION 
3474 015132 004737 017616 20$: JSR PC .MMTOTM :G0 DO THE TEST 
3475 015136 104015 ERROR +15 [RETURN HERE IF ERROR = UNIBUS DID NOT TIME OUT 
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CKKUADO 11/24/44 UBI MAP MACRO M1113 26-0cT-81 ald’ 08 PAGE 4,7 SEQUENCE 
TEST # 12 = RELOC USING LOWEST USABLE MAP REG THRU 
3486 .SBTTL TEST # 12 = RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
J RARAAAAAAARARARARERERAREREEAERAEREREERERAEREREEEREREREEEEEEEEREE 
j#TEST 12 RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
ce THIS TEST CHECKS our THE FULL ADDITION PROPERTIES OF THE UNIBUS 
* MAP A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
* IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 
* IF AN ERROR OCCURS THE veeT WILL REPORT THE PHYSICAL ADDRESS 
* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
*® 
: REE AAEKEEAAKEAAAEEAAEAAEKEEAAKREEEAEEAAAEEAEEAAEARAKREAAKRAEEREEE 
015140 TST12: 
015140 000004 SCOPE 
015142 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
015146 015174 015154 000012 .WORD TST13,20$,12 | :DATA USED BY PRETST 
3487 015154 005037 004312 20$: CLR LOEFLG 'CLEAR LOEFLG - FLAG USED FOR ERROR RETURN 
3488 015160 005037 001312 CLR UBM24U CLEAR UPPER LOCATION 
3489 015164 004737 004106 1$: JSR PC ,MAPADD 360 DO THE TEST 
3490 015170 104211 ERROR +211 “RETURN IS HERE FOR ERROR 
3491 015172 000774 BR 1$ :GO BACK TO THE SUBROUTINE 





















CKKUADO 11/24/44 UBI MAP MACRO M1113 2 ag Sim Ad Pi 08 PAGE 4” SEQUENCE 87 
TEST # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UN 


3500 . SBTTL TEST # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 


FRAAARAAARARARRAEEEREREEEEEEEEERERAREREREREERERERREREREREERERERKEER 


;#TEST 13 CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 


* Ap ad ADDRESS OF THE FORM XXXxx0000 IS Oe Tih HERE STARTING 
* ae It hook UP_TO 17000000. THAT IS, THE FIRST OF EVERY 2k 
* ADDRES ee TO INSURE THAT THE ADDER IN THE MAP IS 

* WORKING S PROPERLY 
x 
rs 


SRAEAEAKRARRAEERAAAEEERAEEEEEAAAAERAEAAAERAERAEAEERAARERAAERREAEKEEREREEE 


015174 000004 113: SCOPE 
3501 015176 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
3502 ITTIIISTITITILII TT TLL LLL LIST Litt LTT R Lie ELE 
503 ‘i IMPORTANT##: IF THE POSITION OF THIS TEST IS CHANGED, CHANGE THE THIRD 
304 : WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 
3505 a a” tn on an a a oF ae 
3506 015202 015236 015210 000013 .WORD 2$,20$,13 :DATA_ USED BY PRETST 
507 000040 NEXMEM=B1T5 ‘BITOS IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 
3508 015210 005037 004312 20$: CLR LOEFLG [CLEAR LOEFLG - USED AS AN ERROR RETURN FLAG 
3509 015214 005037 001312 CLR UBM24U [CLEAR UPPER LOCATION 
3510 015220 012737 020000 001310 MOV #20000,UBM24L  :PUT 20000 IN LOWER LOCATION 
3511 015226 004737 004416 1$: JSR PC, TCPMRA £60 DO THE TEST 
3512 015232 104211 ERROR +211 SRETURN IS HERE IF AN ERROR 
3513 015234 000774 - BR 1$ ‘RETURN TO THE TEST 
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CKKUADO Af > s4 a UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE fs SEQUENCE 
UNIBUS MAP SETTUP 


3213 -SBTTL UNIBUS MAP SETTUP 
218 FRRRRRAEREREEAREEREEAREEREEEEEARERAREEERERAEREREEREEEREREEEREREER EE 
321 $ THE NEXT 3 TESTS ARE RUN THROUGH THE UNIBUS MAP 

518 FRRREREAERERRERERA EEE REEERERRAARREREEAAEEAEEAERERRAAEERREREEEEEEE 
3519 

520 012878 000003 UBMSU: SCOPE ;LOOP ON Fayre TEST 

521 015240 105337 001100 DECB STSTNM :DECREMENT STSTNM - yt IS NOT A TEST 

256 015244 104414 TBITR TREST ORE T-BIT IF IT WAS ON 
3523 015246 032777 004000 163662 BIT #B1T11,aSWR sSEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 
3524 015254 001405 BEQ 1$ [BRANCH TO SETUP IF NOT 
3525 015256 062737 000005 001100 ADD #5,.$TSTNM :FUDGE STSTNM 5 TESTS AHEAD AND 
3258 015264 000137 015744 JMP TSf21 ; JUMP OVER NEXT 5 TESTS 
3258 SLUR RRR EER AEE EERE EERE ERERERRERREEREEEERERRERERERAREREREE EEE 

3 

3530 3* THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 
3531 3* USABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 = 8K. IN THE 
3532 3* DEFAULT CASE, IN MANUFACTURING AND IF THERE IS “NO UNIBUS MEMORY, 
3533 :* eB WILL mw as REGISTERS 1 AND 2. MAP g > thle 1 WILL POINT 
3534 ;* TO PHYSICA - 8k SO “’ y's WILL WORK rent te AND MAP 
3535 7* Sy aake os 2 vit. POINT. TO PH " CAL 0 = 4K. ANS THAT 
3536 3* fg F- GET 170400 SO IT PUTS ADDRESSES. 840000 T 0 057776 
3537 3* P ONIB BUS AND KIPAR1 SHOULD GET 170200 SO IT PUTS TADDRESSES 
$236 ‘* §30000 TO 037776 ON THE UNIBUS. 
$208 PITITIITIIIIITITITI TTT TTI TLL LiTi TTL LLL kL LLL EEL 

41 
3542 015270 013701 001302 1$: MOV LREGU,R1 ;PUT POINTER TO LOWEST MAP REGISTER IN R1 
3543 015274 005721 TST (R1)+ [POINT TO LOWER 16 BITS OF LOWEST + 
3544 015276 012721 020000 MOV #20000, (R1)+ ;LOAD LOWER 16 BITS OF (LOWEST + 1), POINTING TO 4-8k 
3545 015302 005021 CLR (R1)+ ;CLEAR UPPER 6 BITS OF (LOWEST + 1) 
3546 015304 005021 CLR (R1)+ :CLEAR LOWER 16 BITS OF (LOWEST + 2) 
3547 015306 005021 CLR (R1)+ ;CLEAR UPPER 6 BITS OF (LOWEST + 2) 
3548 015310 013701 001256 MOV LOWEST.R1 LOAD R1 
3549 015314 062701 000200 ADD #200,R1 sPOINT R1 TO (LOWEST + 1) 
3550 015320 010137 172342 MOV R1,KIPAR1 ;LOAD PAR1 
3551 015324 062701 000200 ADD #200,R1 [POINT R1 TO (LOWEST + 2) 
3552 015330 010137 172340 MOV R1,KIPARO ;LOAD PARO 













CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE be 
TEST # 14 = MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 


3564 » SBTTL TEST # 14 = MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 


FARRAR REREERREREEREE 





LATEST 14 MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 
te 
be THIS TEST GENERATES A TIME OUT Sie THE UNIBUS MAP BY TRYING 
ps TO gt ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
es — REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
te 
:* ms wie RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
s  eeneneeencesonnceccsessceorossenesenvecnceccqcsepecoscenescnees 
015334 TST14: 
015334 000004 SCOPE 
015336 004737 005166 JSR PC ,PRETST :GO_ SET UP PRETEST DATA 
015342 015362 015354 000014 «WORD TST15,20$,14 ;DATA USED BY PRETST 
3565 015350 005037 004312 CLR LOEFLG [CLEAR LOOP ON ERROR FLAG 
s208 SET re: ott 017616 20$: JSR PC ,MMTOTM 3GO DO TEST ON PAGE 60 OF THIS LISTING 


SEQUENCE 89 
ERROR +15 ZRETURN HERE IF ERROR = UNIBUS DIC NOT TIME OUT 


CKKUADO 11/24/44 UBI MA 
TEST # 15 = RELOC USING. LOWEST USABLE MAP REG USING MAP R 


3581 


folelelelelojlolola) 
—a to YL 
MAMA AIT 


005166 
015404 
060000 
004312 
004106 
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000015 
060000 


20$: CLR LOEFL 


SEQUENCE 


- SBTTL TEST # 15 = RELOC USING LOWEST USABLE MAP REG USING MAP REG 


FARRAR RERRREREEREEARAERREREEERERRAEEEEEERERERREREREREEEE 


:#TEST 15 RELOC USING LOWEST USABLE MAP REG USING MAP REG 
‘e nus TEST CHECKS Ay THE FULL ADDITION PROPERTIES OF THE UNIBUS 
3* P A.L.U.. IN THE DEFAULT CASE IT USES MAP SECT aise ZERO BUT 
3* if THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
3* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 
3* IF AN ERROR OCCURS THE Test WILL REPORT THE PHYSICAL ADDRESS 
i* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
* 
s* THIS + IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
ba THE UNIBUS MAP. 
+t 
PPT TIIIII IIIT ITT IIIT TI TIT T Titi titi iiitiititiiititi iti iii i iti t 
TST15: 

SCOPE 

JSR rst tees 


:G0 SET UP PRETEST DATA 
16 5S, 15 :DATA USED BY PRETST 
MOV #00060, 060000 


CLEAR Loerte ; USED IN ERROR RETURN 


1$: SR PC RAPADD ;60 DO THE TES 
ERROR +211 “RETURN IS HERE FOR ERROR 
R 1$ ‘RETURN TO THE SUBROUTINE 


Ss 
MAKE SURE ADDRESS 060000 CONTAINS ITS OWN ADDRESS AS DATA 


------ a 
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| CKKUADO 11/24/44 UB] MAP MACRO M1113 26-OCT-81 11:08 PAGE "6 SEQUENCE 91 
TEST # 16 = CARRY PROP OF MAP*’S RELOC ADDER USING MAP REG 


3595 .SBTTL TEST # 16 = CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 
FRAAAAAEAAAAAAEEARAREREAAAEAAAAAEREREEAAAEAAKEARREKAHAHEKAAREREEE 
;*TEST 16 CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 
fe EVERY ADDRESS OF THE FORM XXxx0000 IS GENERATED HERE STARTING 
;* WITH 00030000 UP TO 17000000. THAT IS THE FIRST OF E EVERY “* 
:* WORDS RESSED, TO INSURE THAT rhe ADBER IN THE MAP 
* BORKING” PROPERLY . 
*® 
+: :  RARRAEAAARAARARARAAARAEREATEAERAERARAEARARARARARARARAAAAARAARARAKRAERKEEEEE 
015420 T5116: 
015420 000004 SCOPE 
015422 004737 005166 JSR PC PRETST :G0 SET UP PRETEST DATA 
015426 015450 015434 000016 _ .WORD 1ST17,20$,16 | :DATA USED BY PRETST 
0154%% 005037 004312 208: CLR (oer LG [CLEAR LOEFLG = USED AS ERROR RETURN FLAG 
015440 004737 004416 1$: JSR Be TCPMRA :G0 DO THE TEST 
015444 104211 ERROR *2 eft SRETURN IS HERE IF AN ERROR 
015446 000774 BR ‘RETURN TO THE TEST 


ee ee ee 
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TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 





3630 -SBTTL TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
J AAAAAAAARAAAAAAERAAAEEEEEREERARAEREEERERRERERERAERERERERERRRRREE 
; TEST 17 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
J ARAAAAAERARAEREAAAAAAEEAEAREREREREREEEREEAREREEAREEEREERAERRREEE 
: ekkeeeeeeeeNO TEreeeererane 
ie THE MAP WILL BE SHUT OFF FOR THE REMAINDER OF THE DIAGNOSTIC 
: BEFORE ANY TEST CODE IS EXECUTED. IT IS NOT NEEDED. 
33 RRAEAEAAAAAAAARAAAARAAAAAAEAARAAAAARARAAAARAARAAARAAARARARAAARARAE 
§ Sees THIS TEST 1S OPTIOMAL AMD IS SELECTED BY SETTING FEM HARD 
* THIS TEST IS OPTI AND IS SELECTED BY SETTING MFM HARDWARE 
* SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
* OF THE DIAGNOSTIC. IN THE CAS MANUFACTURING APT RUNTIME MODE 
* THEN BIT 08 OF $SWREG IS SET TO 1 THROUGH APT SCRIPTING. 
* THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 
* TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE INTERRUPT 
* IS BEING CALLED FOR(CACHE PE INTR L). 
3* 
7* THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 
:* GOOD MODULES. 
:* THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
* VERIFY TESTING OF THE UBI MODULE. 
* TEST DESCRIPTION: 
* VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
* 114 WHEN A LOCATION PREVIOUSLY WRITTEN 
* WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
* CONDITIONS: PEA AO, 
** = 
+: PETE ELE LAE ER, A, am AR RL RO TM ATTEN 
0 TST17: 
0 000004 SCOPE 
0 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
0 015610 015554 000017 .WORD 1S120,20$,17  :DATA USED BY PRETST 
3631 0 005037 177572 CLR MMRO STURN OFF MEMORY MANAGEMENT 
3632 0 005037 172516 CLR MMR3 STURN OFF MAP RELOCATI 
3633 0 005037 172340 CLR KIPARO T PARO BACK WHERE IT SHOULD AND 
3634 0 012737 000200 172342 MOV #200, KIPAR1 ‘PUT PAR1 BACK WHERE IT SHOULD 
3635 0 105737 007136 TSTB YP SIS THIS AN 11/24? 
3636 0 001403 BEQ 1$ CH OVER JUMP IF 11/44 
3637 0 105237 001100 INCB = $TSTNM S INCREMENT TEST NUMBER TO SIMULATE SKIPPING TEST 
3638 0 000571 BR TST21 *BRANCH OVER THIS AND NEXT TESTS 
3639 0 132737 000200 020035 1S: BITB #200,$ENVM i1s Apr SIZING? 
3640 0 001405 BEQ Y HARDWARE SWITCH REGISTER 
3641 0 032737 000100 020036 BIT #100, SSWREG ‘Yes. APT IS SIZING:DOES APT SAY TO DO THIS TEST 
3642 0 001423 BEQ TST20 ::NO = SKIP TEST 
3643 0 000404 BR 20$ :YES,DO TEST 
3644 0 032777 000100 163364 2$: BIT #100, aSWR ‘DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 
3645 0 001416 BEQ TST20 ::NO = SKIP TEST 
60 012737 000005 005460 20$: MOV #5, CASH1 MOVE BY TE TO LOAD TO CACHE TO SUB :DPMO02 
70 112737 000001 005467 MOVB 1° CASH2 [MOVE TEST 1 10 LOCATION IN SUBROUTINE :DPMOO2 
8 0 004737 005324 JSR PC; CASHSR 760 DO THE CASH TEST 
3649 0 012737 000000 177746 MOV #0. CACHE STURN CA 
3650 0 005703 TST :DID T RABY OCCUR? 
3651 0 001401 BEQ TST20 + ;BRANCH TO NEXT TEST IF YES 


SE eae 






CKKUADO_ 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE 54 SEQUENCE 93 
TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


3652 015606 104020 ERROR +20 ; INTERRUPT/ABORT LOGIC TESTS TRAP TO LOC 114 DID NOT OCCUR 


CKKUADO 11/24/44 UBI MAP MACRO M1113 a 11:08 PAGE oS SEQUENCE 94 
TEST # 20 = VERIFY TRAP DUE TO CACHE PARITY ABOR 


3686 .SBTTL TEST # 20 = VERIFY TRAP DUE TO CACHE PARITY ABORT 
STEST 20 VERIFY TRAP DUE TO CACHE PARITY AAT 
:*TEST 20 VERIFY TRAP DUE TO CACHE PARITY ABORT 

HIS TEST IS OP AND IS SELECTED BY SETTING MFM HARDWARE 
SUITCH REGISTER BIT O8 10 A'1 IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT 08 OF SSWREG IS SET TO 1 THROUGH APT SCRIPTING. 


THE TEST Token THE SIGNAL GENERATED FROM THE CACHE(BUS PBL) 
TO THE UBI MODUL . WHICH INDICATES TO THE UBI THAT A CACHE ABORT 
IS BEING CALLED FOR. 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT UBI ARE KNOWN GOOD MODULES 


bed TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW he TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
VERIFY TESTING OF THE UBI MODULE. 


TEST DESCRIPTION: 


VERIFY ABORT LOGIC BY hw’ FOLLOWING RESULTS WHEN A LOCATION 
PREVIOUSLY wt Me, WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
1. INSTRUCTION CYCLE WILL BE ABORTED 
2. THE ABORT CAUSES TRAP TO 114 


PROCEDURE : INHIBIT CLOCKING OF PARITY ERROR SIGNAL TO 
INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 
BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 
ERROR SIGNAL TO ABORT LOGIC. 


m- ns2e eae RRR R SSSR Ra RRS RRR SRR BS 


mgt eo Se Be Be Be Be Be Be Fe Se Se Ge Se Ge Se Se Be Se Ge Ge Be Be Bee Se Ge Se Se Se Se Se Se 





CONDITIONS: PEA=1 
DCPI=1 
=MABRAASELAALALLALLALLLALEALASL ELSES ELE LES EERE RR EER REE RRR SRE RRS SS 
015610 18120: 
015610 000004 SCOPE 
015612 004737 005166 JSR PC ,PRETST :G0_SET UP PRETEST DATA 
015616 015744 015666 000020 . WORD tstei. 208, 20 DATA USED BY PRETST 
3687 015624 032777 000100 163304 BIT 1T6.a ‘DOES Ue rcH "REGISTER SAY TO DO TEST? 
3688 015632 001437 BEO [NO = SKIP TEST 
3689 015634 132737 000200 020035 BITB #200,$ENVM t1S APT SIZING? 
3690 015642 001405 BEQ 12$ [NO; TRY HARDWARE SWITCH REGISTER 
3691 015644 032737 000100 020036 BIT #100, SSWREG TYES APT IS SIZING:DOES APT SAY TO DO THIS TEST 
$556 Bisse Bathe aan MoS Teste 
3694 015696 032777 000100 163252 12$: BIT #100. asuR :DOES Sg HARDWARE SWITCH REGISTER SAY TO DO TEST? 
3696 015666 $0995 000004 005460 20$: MOV #4, CASH1 SMOVE CACHE LOAD VALUE TO LOC IN SUB _—: DPMOO2 
97 015674 112737 000002 005467 MOVB #2,CASH2 [MOVE 2ND TEST FLAG TO LOCATION IN SUB :DPMOO2 
98 015702 004737 005324 JSR PC CASHSR 7G0 DO CACHE TEST 
3699 015706 022704 177777 CMP #-1,R 3WAS INSTRUCTION ABORTED LEAVING R4 INTACT? 
3700 015712 001401 BEQ 1$ YES 
3701 015714 104021 ERROR +21 SINTERRUPT/A39ORT TESTS R4 WAS OVERWRITTEN WITH 
702 *DATA INDICA “ING THAT INSTRUCTION WAS NOT ABORTED 
3703 015716 005703 1$: TST R3 ‘DID TRAP OCCUR 
3704 015720 001401 BEQ 2s 7YES, PASS | 


CKKUADO_ 11/24/44 
TEST # 20 = VERI 





UBI 
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ba 
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DUE TO CACHE PARITY ABOR 


ERROR +22 
177746 sti MOV oy CACHE 
001100 218: ADD #7,$TSTNM 

JMP $T30 


SEQUENCE 


sn Ce On TESTS TRAP DID NOT OCCUR DUE TO ABORT 


C 
ZADD 7 TO STSTNM_TO COMPENSATE FOR 7 TESTS SKIPPED 
sJUMP OVER NEXT 7 TESTS = THEY ARE FOR AN 11/24 ONLY 


95 
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3721 
015744 
015744 000004 
015746 004737 005166 
015752 016144 016054 
3722 015760 og tet 000001 
3723 015766 042737 000060 
3724 015774 012737 016054 
3725 016002 005037 005764 
3726 016006 012700 056054 
3727 016012 005077 163262 
3728 016016 005077 1eoeey 
3729 016022 013746 172344 
3730 016026 013737 001256 
3731 016034 052737 00006 
3732 016042 005037 172340 
3733 016046 052737 000001 
3734 016054 011001 
3735 016056 023737 005762 
36 01 001007 
3737 016 013737 177736 
3738 016074 042737 177700 
3739 016102 001416 
3740 016104 013737 177734 
3741 016112 013737 177736 
3742 016120 012637 172344 
3743 016124 104023 
3744 016126 06 
3745 016130 012700 004000 
3746 016134 077001 
747 016136 Boosts 
748 016140 012637 172344 














177572 
177734 


001174 
001174 


005766 
005770 
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TEST # 21 = LMA REGISTER PHYSICAL ADDRESS CHECK 


- SBTTL TEST # 21 = LMA REGISTER PHYSICAL ADDRESS CHECK 


J ARARAAAARARAARARREERREREEREEEEEAERERERAREERERREREREEREREEREEREEEEE 


;*TEST 21 LMA REGISTER PHYSICAL ADDRESS CHECK 
3* THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 
3* 
i THIS TEST IS TO CHECK OUT THE LMA (LAST MAPPED ADDRESS) REGISTER FOR 
7* PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET, THEN A 
* PHYSICAL ADDRESS IS LOADED INTO AN EXPECTED DATA LOCATION. THEN THE 
3* MAP IS INSURED TO BE ON AND A MEMORY ACCESS | IS DONE, USING THE MAP 
* REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
* THE PROPER CONTENTS. CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 
**® 
*: : ° etenapamaaes rae cece ape Senet ta ak a ra) ae 
1$T21: 
SCOPE 
JSR PC,PRETST :G0 SET UP PRETEST DATA 
.WORD TST22,20$.21 :DATA USED BY PRETST 
BIC #B1T0.MMRO TURN OFF MEMORY MANAGEMENT 
BIC # STURN OFF 22-B1T AND MAP RELOCATION 
MOV #20$, EADRES [LOAD EADRES OT TH LOWER 16 BITS OF THE PHYSICAL ADDRESS 
CLR EADRES+2 SLOAD UPPER 6 BITS WITH PHYSICAL BITS EXPECTED 
MOV #20$4B1T14,RO :MOVE ADDRESS #40000 (TO REFERENCE PAR2) TO RO 
CLR @LREGL ZCLEAR LOWEST USEABLE MAP REGISTER LOW WORD 
CLR @LREGU SCLEAR ciowest USEABLE MAP REGISTER HIGH WORD 
MOV KIPAR2,-(SP) SAVE KIPAR2 
MOV LOWEST.KIPAR2 PUT PAR VALUE IN PAR2 TO ACCESS LOWEST MAP REGISTER 
BIS #60, MMR3 ‘TURN ON 22-BIT AND MAP RELOCATION 
CLR KIPARO i CLEAR PARO FOR PAGE ACCESSING THIS TEST 
BIS #B1T0,MMRO ON MEMORY MANAGEMENT 
20$: MOV (RO) ,R1 ‘0 THE MAP REGISTER READ THROUGH THE MAP 
CMP EADRES,LMALOW :SEE IF LMA LOWER R 16 WERE LOADED PROPERLY 
BNE i$ ‘BRANCH TO CALL ERROR IF NOT 
MOV LMAHI ,$TMPO :MOVE HI 6 BITS TO a FOR PREPARATION 
BIC #177700,$TMPO CLEAR ALL BUT LOWER 6 BITS 
BEQ 3$ ‘BRANCH AROUND ERROR ook 
1$: MOV LMALOW,EADRS2. :MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 
MOV LMAHI,EADRS2+2 MOVE UPPER f BITS OF RECEIVED DATA TC EADRS2+2 FOR ERROR 
V (SP)+.KIPAR2 | :RESTORE KIPAR2 
ERROR 23 ‘LMA NOT COADED PROPERLY 
BR $122 BRANCH OVER PAR RESTORATION = NOT NEEDED 
MOV #2000 .RO :MOVE 4000 TO WAIT LOOP COUNTER 
2s: S0B RO,2$ 3WAIT A LITTLE BEFORE HITTING THE RESET IN NEXT TEST 
BR TST22 -BRANCH TO NEXT TEST 
3$: MOV (SP) +, KIPAR2 *RESTORE KIPAR2 


' 
Cn a 










8 
CKKUADO_ 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE $0 SEQUENCE 97 
TEST # 22 = LMA FORCE JUMPER BIT TEST 


3755 .SBTTL TEST # 22 = LMA FORCE JUMPER BIT TEST 
J FARRAR AAEAARARERARAAEEEREEEEEEAEAERERARERERERERERRREREERERREEEER 
; #TEST 22 LMA FORCE JUMPER BIT TEST 
ie THIS TEST DETERMINES THAT THE FORCE JUMPER BIT OF THE LMA IS ZERO AFTER 
* A SYSTEM RESET. 
** 
: MAAR SAAAAALALALALALLELALALALALL LEE EE SEER ESET RRS T TP TT PPP PPT SS 
016144 $122: 
016144 000004 SCOPE 
016146 004737 0051 JSR PC,PRETST :G0 SET UP PRETEST DATA 
016152 016212 016160 000022 «WORD TS123,20$,22  :DATA USED BY PRETST 
3756 0001 FJBIT  =100 [FORCE JUMPER BIT IS BIT 6 
3757 016160 042737 000060 172516 20$: BIC #60,.MMR3 STURN OFF 22=B1T AND MAP RELOCATION 
3758 016166 000005 RESET ZRESET THE WORLD, CLEARING THE FJBIT 
3759 016170 032737 000100 177736 BIT #E JB1T.LMAHI :CHECK THE BIT FOR BEING ZERO 
3760 016176 001405 BEQ TST2 :;BRANCH TO NEXT TEST IF OK 
3761 016200 013701 177736 MOV LMAHI,R1 sMOVE LMAHI TO R1 FOR ERROR CALL 
3762 016204 042701 600100 BIC #F JBIT,R1 SCLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
3763 016210 104024 ERROR +24 [LMA FORCE JUMPER BIT NOT ZERO 
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TEST # 23 = SETTING LMA FORCE JUMPER BIT TEST 


3773 .SBTTL TEST # 23 = SETTING LMA FORCE JUMPER BIT TEST 
J RRAARAARAAEAERARAEREERREREEEERERERERERAERERREREEERERREEEREEREEREERE | 
SeTEST 23 SETTING LMA FORCE JUMPER BIT TEST 
tt | 
ie THIS TEST SETS THE FORCE JUMPER BIT AND TESTS ITS FUNCTIONALITY IF 
* THE JUMPERS ARE NOT IN THEIR DEFAULT STATE. IF NOT (LOWEST’ OR 
ie "HIGEST' DO NOT CONTAIN THE DEFAULT VALUES OF 170000 OR 177400 
* RESPECTIVELY), THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 
* REGISTERS ARE ENABLED WITH THE FJ BIT SET. | 
** 
. ; RERRKAEAREAAAEEAAAAEKEAAAEEEAEEEAEAAAREAAAAEKRAEAAEARAAAERAAAEEEAREREEEE 
016212 +8123: 
016212 SCOPE 
016214 737 005166 JSR PC,PRETST :G0 SET UP PRETEST DATA 
016220 016420 016226 000023 ~WORD  1S124,20$,23  :DATA USED BY PRETST 
3774 016226 052737 000100 177736 20$: BIS WEJBIT,LMAH]  :SET THE BIT 
3775 016234 032737 000100 177736 BIT #FJBIT.LMAH] :SEE IF IT WAS SET 
3776 016242 001005 BNE 1$ ‘BRANCH IF SET 
3777 016244 013701 177736 MOV LMAH [MOVE LMAHI TO R1 FOR ERROR CALL 
3778 016250 052701 000100 BIS LT RI ‘SET THE BIT THAT SHOULD HAVE BEEN SET 
3779 016254 104025 ERROR +2 [LMA FORCE JUMPER BIT NOT SET 
3780 016256 022737 170000 001256 1$: CMP #170000,LOWEST SEE IF MAP REGISTER 0 IS LOWEST 
3781 016264 001004 BNE ‘BRANCH AROUND UPPER Li IMI CHECK IF NOT 
82 016266 022737 177400 001260 CMP #177400,HIGEST SEE IF MAP REGISTER 31 I S 
3783 016274 001451 BEQ TST24 + BRANCH TO NEXT TEST IF “— 
3784 016276 052737 000060 172516 28: BIS #60,MMR3 : TURN ON 22-BIT AND MAP RELOCATION 
3785 016304 012737 016364 001106 MOV #6$.SLPERR RESET pk or ON ERROR TO 6$ 
016312 013746 172350 MOV KIPAR4,-(SP) SAVE PAR4 
3787 016316 013737 001262 172350 MOV UBMLOW-KIPAR4  :MOVE LOUEST PAGE OF MEMORY WINDOW TO PAR4 | 
3788 016324 012700 117776 MOV #117776,RO [THIS WILL BE USED TO SELECT PAR4, ADDRESS 17776 
3789 016330 012702 125252 MOV #25252, *R2 ‘LOAD CONSTANT TO R2 | 
3790 016334 000407 BR [BRANCH OVER LOOP SETUP 
3791 016336 062737 000200 172350 4$: ADD 7200 KIPAR4 [MAP TO NEXT REGISTER 
3792 016344 023737 001264 172350 CMP UBMHI,KIPAR4 § :SEE IF HIGHEST HAS BEEN REACHED 
3793 016352 001415 BEQ 9$ SBRANCH TO RESTORE PAR4 AND LEAVE TEST IF SO 
3794 016354 004737 003474 5$: JSR PC, TSTLOC :GO0 TEST LOCATION FOR WRITEABILITY 
3795 016360 000766 BR 4$ BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 
3796 016362 000403 BR 7$ ‘BRANCH AROUND LOOP ON ERROR SETUP 
3797 016364 004737 003474 6$: JSR PC, TSTLOC :60 TEST LOCATION FOR WRITEABILITY 
3798 016370 000401 BR 8$ :GO TEST FOR LOOP ON ERROR IF OK NOW 
3799 016372 104027 7$: ERROR +27 [FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 
3800 016374 032777 001000 162534 8$: BIT #BIT9,aSWR ‘SEE IF LOOP ON ERROR IS STILL SET 
3801 016402 001370 BNE 6$ ‘BRANCH BACK TO LOOP SE ION iF $0 
$802 016404 000754 BR 4$ ‘BRANCH BACK FOR ANOTHER 
3803 016406 012637 172350 9$: MOV (SP)+,KIPAR4 | :RESTORE KIPAR4 
3804 016412 042737 000060 172516 BIC 460 .MMR3 
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TEST # 24 = CLEARING THE FORCE JUMPER BIT 


3810 .SBTTL TEST # 24 = CLEARING THE FORCE JUMPER BIT 
J FARRAR RERRERERREREREREREEERERAEAEEEREARERAERREEERREAEREAERERERREREEE 
SaTEST 24 CLEARING THE FORCE JUMPER BIT 
ie THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED. 
H MORASS ALASALLALALALALLLALAL ALLELE EEE EET ERE EERE TT TTT TTT TT TTT TPP SS 
016420 T$124: 
016420 SCOP 
016422 904737 005166 JSR PC,PRETST :G0 SET UP PRETEST DATA 
016426 016464 016434 000024 .WORD  1S125,20$,24 | :DATA USED BY PRETST 
3811 016434 042737 000100 177736 20$: BIC #FEJBIT,LMAH] §:CLEAR THE BIT 
3812 016442 032737 000100 177736 BIT WFJBIT.LMAH] CHECK TO SEE THAT IT WAS CLEARED 
3813 016450 001405 BEQ TST25 ‘BRANCH IF CLEARED 
3814 016452 013701 177736 MOV LMAHI,R1 ‘MOVE LMAHI TO R1 FOR ERROR CALL 
3815 016456 042701 000100 BIC #F JBIT,R1 [CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
3816 016462 104024 ERROR +24 ‘LMA FORCE JUMPER BIT NOT ZERO 
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TEST # 25 = LMA CONTROL BITS TEST = DATI 


3823 .SBTTL TEST # 25 = LMA CONTROL BITS TEST ~ DATI 
FARRAR EEREERERERAEEEREEREERERREKEEEEEEKKEREEREEEEEEEK 
;#TEST 25 LMA CONTROL BITS TEST = DATI 
e THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
3% . 
° MeAAESSALASLALZALLELALALALALL ALLELES ELE SEE EERE TE EE TP CT PT TTT CPS a ES 
016464 125: 
016464 000004 SCOPE 
016466 004737 005166 JSR C,PRETST 360 SET UP PRETEST DATA 
016472 016626 016570 000025 . WORD rst26 20$,25 ;DATA USED BY PRETST 
3824 016500 015746 170544 MOV -(§P)  SSAVE KIPAR2 
3825 016504 012737 170000 172344 MOV #170006 KiPaR2 [LOAD KIPAR 
3826 016512 012737 000001 177572 MOV #1,MMRO STURN ON MEMORY MANAGEMENT 
3827 016520 012737 000020 172516 MOV #20,.MMR3 STURN ON 22-BIT ADDRESSING 
3828 016526 012700 056610 MOV #1$+B1T14,R0 ZMOVE LOCATION ADDRESS *60000 (TO REF PAR2) TO RO 
3829 016532 011001 MOV (RO) ,R1 :D0 A DATI 
3830 016534 013737 177736 001174 MOV LMAH! ,STMPO sMOVE LMAHI TO sy FOR PREPARATION OF EXPECTED 
3831 016542 013737 001174 001200 MOV STMPO. $TMP2 [MOVE IT TO $TMP2 A 
3832 016550 042737 037777 001200 BIC #37777,$1MP2  :CLEAR ALL BUT THE ME ONTROL BITS 
3833 016556 023737 001174 001200 CMP STMPO,$TMP2 [SEE IF EXPECTED DATA CAME UP 
3834 016564 001416 BEQ 3$ ‘BRANCH TO FINISH TEST IF ALL CLEAR 
3835 016566 000410 BR 1$ [BRANCH OVER LOOP ON ERROR SETUP 
3836 016570 011001 20$: MOV (RO) ,R1 [D0 A DATI 
3837 016572 013737 177736 001174 MOV LMAHI , $TMPO [MOVE LMAHI TO $TMPO FOR COMPARE 
3838 016600 023737 001174 001200 CMP $TMPO.$TMP2 [SEE IF EXPECTED DATA CAME UP 
3839 016606 001401 BEQ 2$ ‘BRANCH AROUND ERROR IF IT DID 
3840 016610 104026 1$: ERROR +26 [LMA CONTROL BITS INCORRECT 
3841 016612 032777 001000 162316 28: BIT #BIT9,aSWR ‘SEE IF LOOP ON ERROR IS SET 
3842 016620 001363 BNE 20$ ;BRANCH BACK FOR ANOTHER TRY IF SET 
3843 016622 012637 172344 3S: MOV (SP)+,KIPAR2  :RESTORE KIPAR2 
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TEST # 26 = LMA CONTROL SITS TEST = DATO 


3850 -SBTTL TEST # 26 = LMA CONTROL BITS TEST = DATO 
FF AAA EEE EERE EEEEEERAEE 
i*TEST 26 LMA CONTROL BITS TEST = DATO 
3* 
3* te TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
ye . 
** 
: {RRR AAAREREREREAERAERREREREEREERERRRERERAERAEEREEREEERRERAEREEREREEREEE 
016626 TST26: 
016626 000004 SCOPE 
016630 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
016634 016762 016724 000026 «WORD  TST27,20$,26 DATA USED BY PRETST 
3851 100000 DATO =100000 
$528 016642 013746 172344 V KIPAR2,-(SP) SAVE KIPAR2 
3853 016646 012737 170000 172344 MOV #170000,KIPAR2 LOAD KIPAR2 
3854 016654 012700 056744 MOV #1$+BIT14,RO sMOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
3855 016660 010110 MOV P 2D DATO 
3856 016662 013737 177736 001174 MOV LMAHI ,STMPO ;MOVE LMAHI TO $TMPO FOR CONTROL BIT ANALYSIS 
3857 016670 013737 001174 001200 MOV STMPO,STMP2 sMOVE IT IT $TMP2 ALSO 
3858 016676 052737 100000 001200 BIS #DATO,STMP2 ;SET AND CLEAR THE CONTROL BITS EXPECTED TO BE SET 
3859 016704 042737 040000 001174 BIC 1714, $TMP AND CLEAR SO $TMP2 WILL CONTAIN THE EXPECTED 
3860 016712 023737 001174 001200 CMP STMPO,STMP2 sSEE IF BIT 15 IS SET AND 14 IS CLEAR 
3861 016720 001416 BEQ 3$ BRANCH IF OK 
3862 016722 000410 BR 1$ :GO CALL ERROR 
3863 016724 010110 20$: MOV R1, (RO) 3:D0 A DATO 
3864 Bieres 013737 177736 001174 MOV LMAHI ,STMPO sMOVE LMA HIGH REGISTER CONTENTS TO STMPO FOR COMPARE 
3865 0167 023737 001174 001200 CMP STMPO,STMP2 sSEE IF EXPECTED CAME UP 
3866 016742 001401 BEQ 2s sBRANCH AROUND ERROR IF IT DID 
3867 016744 104026 1$: ERROR +26 ;LMA CONTROL BITS INCORRECT 
3868 016746 032777 001000 162162 2$: BIT #BIT9,aSWR ;SEE IF LOOP ON ERROR IS SET 
3869 016754 001363 BNE 20$ ;BRANCH BACK FOR ANOTHER TRY IF SET 
3870 016756 012637 172344 3$: MOV (SP) +, KIPAR2 RESTORE KIPAR2 
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T # 27 = LMA CONTROL pits TEST = DATO8 


3877 - SBTTL TEST # 27 = LMA CONTROL BITS TEST = DATOB 
eri tii tiiti iii ital iti iti iiiitit iii tite itiiiiiiii is) 
LATEST 27 LMA CONTROL BITS TEST = DATOB 
te 
3* ie INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
3° ° 
-* 
PTTIIIIIITITITI TTI TTT tTi Titi iiiitititiiiiiitiiiiiiiiiititiiitt 
016762 TST27: 
016762 000004 SCOPE 
016764 004737 005166 JSR PC,PRETST :GO_ SET UP ow pee DATA 
016770 017110 017052 000027 -WORD = 1ST30,208,27 ;DATA USED BY PRETST 
3878 140000 DATOB =140000 ;DATOB CONTROL BITS STATUS=140000 
3879 016776 013746 172344 MOV KIPAR2,~(SP) sSAVE KIPAR2 
3880 017002 012737 1700 172344 MOV #170000,KIPAR2 LOAD KIPAR2 
3881 017010 012700 057072 MOV #1$+B1T14,RO 3MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
3882 017014 110110 MOVB Oh A :D0 A DATOS 
3883 017016 013737 177736 001174 MOV LMAHI ,$TMPO sMOVE LMAHI TO STMPO FOR CONTROL BIT CHECK 
3884 017024 913737 001174 001200 MOV $7MPO. S1mp2 sMOVE TO STMP2 ALSO 
3885 017032 052737 140000 001200 BIS #DATOB STMP2 zSET THE EXPECTED DATA BITS INTO $TMPO 
3886 017040 023737 001174 001200 CMP 0, $TMP2 ;SEE IF EXPECTED DATA CAME UP 
3887 017046 001416 BEQ 3s BRANCH IF OK 
3888 017050 000410 BR 1$ BRANCH TO CALL ERROR 
3889 017052 110110 208: MOVB R1, (RO) 3D0 A ri 
3890 017054 013737 177736 001174 MOV LMAHI , $TMPO MOVE LMA HIGH REGISTER CONTENTS TO $TMPO FOR COMPARE 
3891 017062 023737 001174 001200 CMP STMPO ,STMP2 7 SEE 1F MEXPECTED DATA CAMPE UP 
3892 017070 001401 BEQ 2s BRANCH IF OK 
3893 017072 104026 $: ERROR +26 3LMA CONTROL BITS INCORRECT 
3894 017074 032777 001000 162034 2$: BIT #B1T9,aSwWR ;SEE IF LOOP ON ERR S SET 
3895 017102 001363 BNE 208 sBRANCH BACK FOR ANOTHER TRY IF SET 
3896 017104 012637 
3897 PTTTTTTTTITITITIT TTI TTT TTI TTT TTT TTT LETT TTT 


4 
* >>NOTE<<: “DATIP"® CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 
3; WRITTEN TWICE WHEN A ‘DATIP’ IS EXECUTED, DESTROYING THE 
;* "DATIP® STATE THAT WAS WRITTEN FIRST. 

* 


SRA REREAEAARAERAAREREERAAARARAAAEAAARAAAAAEEAAAAARARAAREREERREE 


1 
2 
172344 3$: MOV (SP)+,KIPAR2 ;RESTORE KIPAR2 
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MEMORY ON UNIBUS TESTS HEADER 


3905 -SBTTL MEMORY ON UNIBUS TESTS HEADER 


3906 PAITTITITITITIIITITITILI TIT TTTLIT ITT T TTT LLL LLL LEE 
3907 tt 
3908 ;* THE NEXT TWO TESTS WILL et ae IF A ‘1° IN BIT 5 OF THE SWITCH 
3909 :* REGISTER IS FOUND SET. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
3910 :* UNIBUS MEMORY = AN ERROR RESULTS IF oe IS NONE. IF THERE IS MEMORY, 
3911 ;* IT THEN SIZES THE em OF MEMORY ON THE UNIBUS, INFORMS THE USER 
3912 3* HOW MUCH MEMORY IT FOUND ON THE FIRST PASS, THEN SETS AND CLEARS ALL 
3913 7* BITS OF ws LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE ‘MARCH’ 
sor8 3* ALGORITHM 

* 
3916 te M7098 FOR THE 11/44, M7134 FOR THE 11/24 
ate 3* JUMPER SETTINGS FOR THE MAP REGISTERS 

* 
3919 y* V<<<<<LOWER LIMIT>>>>>V V<<<<UPPER LIMIT>>>>V 
$59 7* 0 0 0 0 0 0 0 0 

* ‘ ' ' ' ' ' ' H H H 
3355 3* Wi2; WIT! wi0: W9! WB! W7i W6: WS! wo: w3! 

se H ' H ' ' : i : ‘ H 
soSe :* 0 0 0 0 0 0 0 0 0 0 
3926 3*W3-W7 AND W8-W12 ARE THE BINARY-CODED wy NUMBER LIMIT (UPPER OR LOWER). 
3927 TA JUMPER IN CORRESPONDS TO A LOGIC ‘0’; A JUMPER OUT TO A LOGIC ‘I"*. TO 
3928 7*SET THE JUMPERS, DETERMINE WHICH UNI THE MEMORY RESIDES IN (0 TO 31) 
3929 ; *BY hg pa WHICH OF THE 5 ADDRESS BITS BA17-BA13 ARE ASSERTED. ALL ZEROS 
3930 z*I1S PAGE 0, 10000 IS PAGE 1, 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP TO 
3931 :*PAGE 31 (41111). FOR THE MEMORY TO BE DETECTED, IT MUST LIE AT OR ABOVE 
3932 + * THE LOWER LIMIT JUMPER SETTING AND BELOW THE UPPER LIMIT JUMPER SETTING. 
3933 3* TO HAVE IBUS MEMORY IN PAGES 5-9, ONE LD SET THE i LIMIT TO 
39 s*PAGE 5 (10100) OR “; AND W12 OUT, AND W8, W9 AND W11_ IN, AND THE UPPER Sai 
3935 3*TO PAGE 10 (01010) OR W4 AND W6 OUT, AND W3, WS AND W7 IN. UNIBUS MEMOR 
3936 zsMUST BE CONTIGUOUS CINE NO GAPS ARE PERMITTED. 
3937 LRRARAAAAAAEAARERAAAARAAAAEAARERERAARRAKERERAEARERKARRAA ATER A Eee 

| 
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3949 


017110 

017110 000004 

017112 004737 005166 

017116 017336 017124 
3950 017124 042737 000001 
3951 017132 032777 004 
3952 017140 001425 
3953 017142 012737 021450 
3954 017150 022737 170000 
3955 017156 001020 
3956 017160 022737 177460 
3957 017166 001014 
3958 017170 012737 012744 
3959 017176 112737 000007 
3960 017204 112737 000007 
3961 017212 104017 
3962 017214 000137 021450 
3963 017220 005037 001320 
3964 gI7eee 005037 1330 
3965 017230 005037 172516 
3966 017234 052737 020 
3967 017242 005037 172340 
3968 017246 012737 000200 
3969 017254 013700 00127 
3970 017260 163700 001272 
3971 017264 005200 
3972 017266 010037 001316 
3973 017272 005046 
3974 017274 A oy 200 
3975 017300 013746 001262 
3976 01 012746 000002 
3977 017310 005737 020022 
3978 017314 001010 
3979 017316 010046 
3980 017320 006316 
3981 017322 006316 
3982 ates 104401 006123 
3983 017330 104405 
3984 017332 104401 006172 
3985 021450 
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MEMORY ON UNIBUS TEST 


000030 
177572 
161776 


001362 
001256 


001260 
001106 


001100 
020020 


172516 
172342 


SEQUENCE 


- SBTTL TEST # 30 = MEMORY ON UNIBUS TEST 


FRRAAAAAARAAAAARARAARAAEAAREAAAAAAAAAAAAKARAAAREAEERARAHEKAREAREEE 


;*TEST 30 MEMORY ON UNIBUS TEST 
THIS TEST FIRST CHECKS TO SEE IF THE UNIBUS MEMORY TESTS HAVE BEEN 
* SELECTED. IF NOT, THE EOP IS EZECUTED. IT THEN CHECKS FOR UNIBUS 
3* MEMORY EXISTENCE @Y CHECKING THAT THE CONTENTS OF LOWEST OR HIGHEST 
;* LOCATIONS IS NOT IN ITS DEFAULT STATE. IF BOTH ARE, AN ERROR IS 
:* CALLED AND THE EOP IS EZECUTED. IF EITHER ARE NOT, THE NEXT SECTION 
;* 1S EXECUTED THAT DETERMINES THE SIZE OF THE UB MEMORY AND TELLS 
* USER OF THE RESULTS ON THE FIRST PASS ONLY. 
*® 
PITITITITITI IIIT ITI TTT TTT iti iit titititiiiiiiiiiiiiiiiiiti it) 
TS730: 
SCOPE 
JSR C,PRETST :GO0 SET UP PRETEST DATA 
. WORD TSt3t. 208, 30 DATA USED BY PRETST 
208: &BIC MAR N OFF MEMORY MANAGEMENT 
BIT waits, aswR ‘SEE IF THIS TEST HAS BEEN SELECTED 
BEQ 2$ : TO JUMP IF TEST NOT SELECTED 
MOV #SEOP .NXTTST ‘POINT. TO ESCAPE VECTOR 
1$: CMP #170000,LOWEST SEE IF LOWEST IS LOWEST 
BNE 3 :GO DO TEST IF IT ISN'T = UNIBUS MEMORY EXISTS 
CMP #177400, HIGEST :SEE IF HIGEST IS HIGHES 
BNE $ :GO0 DO TEST IF IT ISN'T = UNIBUS MEMORY aXiSTS 
MOV #SIZEJO, SLPERR [MOVE SIZE JUMPER ROUTINE TO LOOP ON ERR 
MOVB #7, $TSTNM SEXECUTING AFTER TEST 7 ON LOOPBACK 
MOVE #7.$TESTN TEXECUTING AFTER TEST 7 ON LOOPBACK 
ERROR +17 : 1BUS MEMORY EXISTS 
2$: JMP SEOP [JUMP TO END OF PASS 
3$: CLR ERRCNT [CLEAR THE ERROR COUNT INDICATOR 
CLR BCPUER [CLEAR THE ERROR REGIS TER RECEIVER 
CLR [CLEAR MEMORY MANAGEMENT REGISTER MMR3 
BIS #20,MMR3 [TURN ON 22-B1T MAPPING 
CLR ARO [MAP PARO TO 0-4K 
MOV #200, KIPAR1 ‘MAP PAR1 TO 4-8k 
MOV HI ,RO [MOVE UBRHI TO RO 
SUB UBRLOW, RO [SUBTRACT UBRLOW FROM IT, AND 
INC [ADD LAST BLOCK OF 4k TO LOOP COUNTER 
MOV RO,.NUMOF K [SAVE RO IN NUMOFK 
4$: CLR -(§P) *CLEAR THE MAJOR Loop INDICATOR ON STACK 
MOV #200,-(SP) [MOVE PAR CHANGE TO STACK 
MOV LOw,-(SP) MOVE STARTING PAR VALUE TO STACK 
MOV #2,-(SP) [MOVE INCREMENT VALUE TO STACK 
TST Ass SSEE IF THIS IS FIRS? PASS 
BNE TST31 : {BRANCH TO NEXT TEST IF NOT 
MOV RO,-(SP) OUNTER TO THE STACK AND 
ASL SP) cROTATE THIS TO THE LEFT 2 PLACES 
ASL (SP) [TO INDICATE NUMBER OF K IN OCTAL 
TYPE ,UBMAVA 760 TYPE THE UNI-BUS MEMORY AVAILABLE MESSAGE 
TYPDS G0 TYPE THE NUMBER IN DEC IMAL 
PE , UBMEND ;TYPE A ‘* K’’ AND <CRLF> 


Ty 
TST32=SE0P 


104 
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TEST # 31 = USING MARCH ALGORITHM, CHECK UB 


j 
3992 .SBTTL TEST # 31 = USING MARCH ALGORITHM, CHECK UB MEMOR 
esonsequaasanabnesebereteunasecestssoncotosassooscecsensaeeneene j 
j#TEST 31 USING MARCH ALGORITHM, CHECK UB MEMORY | 
fe THIS TEST LOADS PATTERN 125252 INTO ALL LOCATIONS IN UB MEMORY, THEN 
is USING THE MARCH ALGORITHM, CHECKS THE MEMORY 
_aeeesneenneeneeneeneeereeeeneeneencensenereneececerenenneeess | 
017336 fiess 
017336 900004 
017340 004737 005166 JSR PC,PRETST :G0_ SET UP PRETEST DATA 
017344 021450 017454 000031 .WORD TST3 208 31 DATA USED BY PRETST 
3993 017352 012704 lesese MOV #125 $2 RS ‘MOVE FIRST TEST PATTERN TO RG 
3994 017356 oi 705 05252 MOV 52525,R5 [MOVE SECOND TEST PATTERN TO RS 
3999 017362 013737 001262 172354 1$: MOV UBMLOW,KIPAR6 INITIALIZE PAR 
996 017370 013700 001316 MOV NUMOF K.RO SREINITIALIZE LOOP COUNTER RO 
3997 017374 052737 000001 177572 BIS #1,MMRO :TURN ON MEMORY MANAGEMENT 
3998 017402 012708 010000 2$: MOV #16000 ,R2 TACCESS ALL WORDS IN THIS 4K BLOCK | 
999 017406 012703 140000 MOV #140006,R3 [FIRST ADDRESS OF THIS PAGE 
4000 017412 010423 3$: MOV RG, (R3)+ ‘MOVE THE PATTERN TO THE LOCATION 
4001 017414 077202 S0B 3$ [SUBTRACT 1 AND BRANCH IF 4K NOT DONE 
4002 017416 06275 000200 172354 ADD #200, ,KIPAR6 :MAP TO NEXT 4K BL CK 
4003 017424 077012 SOB RO, 2$ :SUBTRACT 1 AND BRANCH IF BLOCKS OF 4K NOT DONE 
4004 017426 016637 000002 172354 MOV 2(SP),KIPAR6 § :REINITIALIZE KIPAR6 TO POINT AT BEGINNING 
4005 017434 010100 MOV SREINITIALIZE LOOP COUNTER RO 
017436 012702 010000 4$: MOV #16000,R2 SACCESS ALL WORDS IN THIS 4K BLOCK 
4007 017442 012703 140000 MOV #140006 R3 [FIRST ADDRESS OF THIS PAGE | 
017446 066603 000006 ADD 6(SP) ,R3 [ADD OFFSET FOR THIS MAJOR PASS 
017452 000401 BR 5$ [BRANCH OVER LOOP ON ERROR PREPARATION 
4010 017454 010413 20$: MOV R4, (R3) SREWRITE 1ST PATTERN TO LOCATION FOR LOOP ON ERROR | 
4011 017456 020413 5$: CMP R4. (R3) [SEE IF IT WAS LOADED PROPERLY 
012 017460 001403 BEQ 6S" [BRANCH AROUND ERROR CALL IF OK 
4013 017462 010437 001204 MOV R4,STMP4 SMOVE EXPECTED DATA TO $ THs 
4014 017466 000405 BR 7$ 'GO COMPLETE DATA FETCHING AND CALL ERR 
4015 017470 005113 6$: COM (R3) [COMPLEMENT THAT LOCATION TO PRODUCE SECOND TEST PATTERN | 
4016 017472 020513 CMP R5, (R3) [SEE IF IT IS THE COMPLEMENT 
4017 017474 001417 BEQ 118 [BRANCH AROUND ERROR CALL IF IT IS l 
4018 017476 010537 001204 MOV R5,STMP4 “MOVE EXPECTED DATA TO $TMP4 
4019 017502 011337 001206 7$: MOV (R3) ,STMPS [MOVE RECEIVED DATA TO STMP5 
4020 017506 005737 001330 TST PCPUER 3SEE IF THIS ACCESS TIMED OUT - IF IT DID, BRANCH 
4021 017512 001010 BNE ERROR ALLS = MEOUT ROUTINE LOGGED ERROR 
4022 017514 010337 005762 MOV RS EADRES <MOVE ADDRESS tN R To” CADRES FOR ERROR CALL 
4023 017520 104206 8$: ERROR +206 [DATA PATTERN NOT CORRECT 
4024 017522 000404 BR 1$ ‘BRANCH AROUND INCR EMENT AND CLEAR INSTRUCTIONS 
4025 017524 005237 001110 9$: INC SERTTL ‘STILL COUNT THIS AS AN ERROR | 
4026 017530 005037 001330 10$: CLR PCPUER [CLEAR TIMEOUT RECEIVER 
4027 017534 061603 11$: ADD (sp) R3 ‘ADD INCREMENT/DECREMENT VALUE TO R3 | 
4028 017536 077231 SOB :SUBTRACT 1 AND BR ANCH IF 4K NOT CHECKED 
4029 017540 066637 000004 172354 ADD ATS) ,KIPAR6  :MAP TO NEXT 4K 
4030 017546 077045 SOB RO,4$ [BRANCH BACK IF RORE “aLocks TO CHECK | 
4031 017550 005766 000006 TST 6 (SP) ‘TEST TO SEE IF THIS IS SECOND PASS 
4032 017554 001404 BEQ 12$ ‘BRANCH TO OND PASS SETUP IF NOT 
4033 017556 062706 000010 ADD #10,SP [CLEAN UP STACK 
4034 017562 000137 021450 JMP : JUMP TO END OF PASS | 
4035 017566 012766 017776 000006 12$: MOV #17776,6(SP) | :MOVE 2K WORDS -2 (ALSO 2M PASS INDICATOR) TO STACK 
4036 017574 012766 177600 000004 MOV #-200, (SP) SMOVE REVERSE PAR STEP TO STACK 
4037 017602 013766 001264 000002 MOV UBMHI ;2(SP) ‘MOVE LAST PAR VALUE TO STAC 
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TEST # 31 = USING MARCH ALGORITHM, CHECK UB MEMORY 


4038 017610 ores 177776 MOV #-2, (SP) sMOVE DECREMENT VALUE TO STACK 
4039 017614 00066 BR 1$ ;BRANCH BACK FOR SECOND PASS 


| 
‘ 
j 
} 
1 
oe | 
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SEQUENCE 107 
SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS 
4040 .SBTTL SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS 
4041 REAAERAAAAAAAAAAAARAAAEEERARAEAAAAARAAAAAAAAAAAAAAEAEERAEAREARAAEAEEREE 
404g 017616 005737 004312 WTOIM: TST LOEFLG gSEE IF THIS ENTRY IS FROM ERROR LOOPING 
4043 017622 001402 BEQ 1$ ‘BRANCH IF NOT 
4044 0176246 062706 000 902 ADD #2,SP ZCLEAN EXTRA RETURN OFF STACK 
4045 017630 0050 00135¢ 1$: CLR ERRCNT ‘CLEAR ERRCNT FOR THIS TEST 
4046 017634 013737 9012 172350 MOV LOWEST,KIPAR4 LOAD PAR 4 WITH LOWEST USABLE MAP REG 
4047 017642 012777 161432 MOV #74, aLREGU ;LOAD UPPER 6 BITS OF LOWEST MAP REG 
4048 017650 005077 Pesto CLR @LREGL TLOAD LOWER 16 BITS OF LOWEST MAP REG 
4049 017654 032777 004000 161254 BIT #B1T11,aSWR ‘see iF AN 11/24 WITH UB MEMORY ONLY 
4050 017662 001403 BEQ 0$ CH IF NOT 
4051 017664 012737 177600 172350 MOV #177600, KIPARG tRESET KIPAR4 SO A TIMEOUT THROUGH MAP CAN BE EXPECTED 
4052 017672 005037 00133C 20$: CLR PCPUER [CPU ERROR REGISTER LOCATION 
4053 017676 O12737 000020 001326 MOV #TIMOUT gPUEX XP EXPECTING TIMEOUT IN THIS TEST 
4054 017704 013703 100000 MOV 100000,R TRY TO READ THROUGH PAGE 4 THIS REFERENCE WILL GO OUT 
4055 SON THE UNIBUS TO SELECT THE LOWEST USABLE MAP REGISTER (DEFAULT REG. 0). PHYSICAL 
4056 ZADDRESS 17700000 Is THEN GENERATED, WHICH SHOULD TIME OUT SINCE iY IS THE FIRST 
4057 {NON-EXISTENT LOCATION. 
4058 017710 005037 001326 CLR CPUEXP ZCLEAR LOCATION = NO MORE TIMEOUTS FOR A WHILE 
405° 017714 022737 000020 001330 CMP ATIMOUT,PCPUER THE UNIBUS SHOULD HAVE TIMED ur 
4020 017722 001405 BEQ 3$ ‘BRANCH IF CONDITION WAS CORRECT 
4061 017724 011646 2$: MOV (SP) ,-(SP) [PUSH ANOTHER RETURN ONTO THE STACK FOR POSSIBLE ERROR LOOP 
017726 012737 000001 004312 MOV #1,LOEFLG 'SET ERROR LOOP FLAG 
4063 017734 000207 RTS PC EXIT 
4064 017736 062716 000002 38: ADD #2, (SP) SCORRECT RETURN PC OVER ERROR CALL 
4065 017742 000207 RTS PC EXIT 
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4068 


4069 
0 


020000 


177777 
177777 


ee --< - -> 
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ADDWO= 
ADDW1= 
-SBTTL 


-=20000 


177777 
177777 


;THE APT TABLES NEED TO START AT 20000 = THIS STATEMENT DOES THAT 


APT PARAMETER BLOCK 


SREEERAAAEREAAEEEEAREREEERAEEARAEAAAAEAAEAEAEREAEARRERAERERERERREREEEERE 


:Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


J RRAARERRERREREREREREEREEEERREREREEERREEEEERRERRERREREREEREREREE 


22SAVE CURRENT LOCATION 
23SET Operant TO POINT TO START OF PROGRAM 


33 AP 
;POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 

3sRESET LOCATION COUNTER 


,patnanadadananaaaannnneennannnnannnanennnaneneaeaceaeneneesseees 


* INTERFACE SPEC. 
$APTHD: 
SHIBTS: 
SMBADR: 
STSTM: 


SPASTM: 
SUNITM: 


«WORD 
D 


0 3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL + sADDRESS OF APT MAILBOX (BITS 0-15) 

5 zRUN TIM OF LONGEST TEST 

10 3 ERUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-SMAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 


| 
| 
UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC | 
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APT MAILBOX~E TABLE 


4072 -SBTTL APT MAILBOX-ETABLE 
3 pp ett sania ar a tama as eae emi 
EV 
020014 SMAIL: 7zAPT MAILBOX 
020014 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
020016 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
020020 000000 STESTN: .WORD ATESTN ;;TEST 
020022 000000 SPAS «WORD APA 33PASS COUNT 
020024 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
020026 000000 $UNI «WORD AUNIT = ;;1/0 UNIT E 
2 000000 Ss »WORD AMSGAD ;;MESSAGE ADDRESS 
020032 000000 SGLG: .WORD AMSGLG ;;MESSAGE TH 
020034 SETABLE: ::APT ENVIRONMENT TABLE 
200 000 ENV -BYTE AENV 7 :ENVIRONME YTE 
020035 000 $E -BYTE AEN ENVIR T MOD TS 
20036 000000 SSWREG: . D ASWREG ;;APT SWITCH REGISTER 
020040 000000 $uS -WORD AUSWR ;;USER S 
020042 000000 SCPUOP: .WORD ACPUOP bite: 1 i” 
& - = 


PUT 
1/04=01, “11/05=02, 11/20=03,11/40=04,11/45=05 


;* 
3* W 70=06.PDQ=07,0=10 
* BIT 1 =REAL TIME et bock 
* BIT 9=FLOATING POINT PROCESSOR 
= fe BIT B=MEMORY Y MANAGEMENT 
020044 000 ¢MaMS1: .BYTE $1 i HIGH ADDRESS,M.S. BYTE 
020045 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE. BLKA1 
ze him. TYPE BYTE -- (HIGH BYTE) 
* 900 NSEC CORE=001 
* 300 NSEC BIPOLAR=002 
fe 500 N ¢ mos= 
020046 000000 $MADR1: .WORD  AMADR1 :7HIGH ADDRESS -BLKAT 
fe AST ESS BL uv BYTES, THIS WORD AND LOW OF "‘TYPE'’ ABOVE 
020050 000 SMAMS2: .BYTE AMAMS2 sere ADDRESS,M.S. BYTE 
020051 000 SMTYP2: .BYTE AMTYP2 ::MEM. TYPE ,BLKA2 
020052 000000 SMADR@: “WORD AMADR 3 :MEN-LAST ADDRESS ,BLKA2 
020054 000 SMAMS3: .BYTE AMAMS3 : ADDRESS -M. S.BYTE 
020055 000 SMTYP3: .BYTE AMTYP ‘Ime TYP 
020056 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS BLK#3 
SMAMS4: .BYTE AMAMS4 THIGH ADDRESS ,M.S.BYTE 
020061 000 SMTYP4: .BYTE AMTYP4 ::MEM. TYPE .BLKAG 
020062 000000 R4: .WORD AMADR4 ;:MEM.LAST ADDRESS BLKA4 
02 000000 SVECT1: .WORD AVECT1 : 3 INTERRUPT VECTOR#1,BUS PRIORITYA1 
020066 000000 SVECT2: .WORD AVECT2 ::INTERRUPT VECTOR#2BUS PRIORITY#2 
020070 000000 SBASE: .WORD ABASE 3 :BAS E ADDRESS OF EQUIPMENT UNDER TEST 
020072 000000 SDEVM: .WORD ADEVM ::DEVICE MAP 
020074 000000 $CDW1: .WORD ACDW1 ::CONTROLLER DESCRIPTION WORDA1 
020076 $CDW2: WORD AcDud :: CONTROLLER DESCRIPTION WORD#2 
020100 177777 $DDWO: WORD ADD [:DEVICE DESCRIPTOR WORDAO 
020102 177777 $DDW1: .WORD ADDW1 ;:DEVICE DESCRIPTOR WORDA1 
020104 000000 $DDW2: .WORD ADDW2 ;:DEVICE DESCRIPTOR WORDA 
020106 000000 SDDW3: .WORD ADDW3 ;:DEVICE DESCRIPTOR WORDS 
020110 000000 $DDW4: WORD [DEVICE DESCRIPTOR WORDA4 
020112 000000 SDDWS: .WORD ADDWS ;:DEVICE DESCRIPTOR WORDAS 
020114 000000 $DDW6: WORD s:DEVICE DESCRIPTOR WORD# 
020116 000000 $DDW7: .WORD ADDW7 ::DEVICE DESCRIPTOR WORD# 
020120 000000 SDDW8: .WORD ADDW8 ;:DEVICE DESCRIPTOR WORD#S 
020122 000000 SDDW9: WORD [DEVICE DESCRIPTOR WORDAS 
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02 
020140 
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$DDW10: 


SETEND: 


soe ice at siy ido WORDA#19 
VICE DESCRIPTOR WORD#11 


3DEVICE DESCRIPTOR WORDA14 
:sDEVICE DESCRIPTOR WORD#15 


SEQUENCE 110 
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SCOPE HANDLER ROUTINE 


4074 -SBTTL SCOPE HANDLER ROUTINE 


RRRRARRAEEAEAAREARAEEA TEER ARAAERRATEARE RARER RRER ERRATA ARE ee 

TS THIS ROUTINE CONTROLS THE ie OF SUBTESTS. IT WILL INCREMENT 

3 #AND LOAD ie 130 NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

i eTHE SulTcH wes on tact BY THIS ROUTINE ARE: 


: ON TEST 
7*SW11=1 INHIBIT ITERATIONS 
3*Sw09=1 LOOP 
7 *SWO8=1 LOOP ON TEST IN SWR<4:0> 
7 *CALL 
:* SCOPE 3; SCOPE=I0T 
020140 SSCOPE: 
020140 005037 001360 CLR RETRY ZCLEAR RETRY FLAG AN THE START OF EACH TEST 
020144 005037 001320 CLR ERRCNT SCLEAR THE MULTIPLE ERROR COUNTER 
20 005037 001246 CLR DATAOR [LOCATION FOR LOGICAL OR OF BAD DATA 
020154 005037 001236 CLR ADDROR SLOCATION FOR LOGICAL ‘OR OF ADDRESS 
020160 005037 001240 CLR ADDROR+2 [LOCATION FOR UPPER 6 BITS OF LOGICAL OR OF ADDRESS 
20164 005037 001254 CLR PATTOR ZLOCATION FOR LOGICAL OR OF PATTERN LOADED 
020170 012737 177777 001242 MOV sl, DATAND SLOCATION FOR LOGICAL AND OF BAD DATA 
020176 012737 177777 001232 MOV #-1.A [LOCATION FOR LOGICAL AND OF ADDRESS 
20204 012737 000077 001234 MOV #77. *ADRAND +2 [LOCATION FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 
020212 012737 177777 001252 MOV #-1-PATAND [LOCATION FOR LOGICAL AND OF PATTERN LOADED 
020220 012737 000077 005764 MOV #77, EADRES*+2 RESTORE UPPER 6 BIT LOCATION OF EADRES+2 
020226 012737 000077 005770 MOV #77, EADRS2+2  :RESTORE UPPER 6 BIT LOCATION OF EADRS2+2 
20234 032777 040000 160674 1$: BIT #B1T14,aSWR :LOOP ON PRESENT TEST? 
020242 007134 BNE SOVER “VES IF SW14=1 
:WAHHMSTART OF CODE FOR THE XOR TESTERsesae 
020244 000416 $XTSTR: BR 6$ z21F UNNING ON THE roe TESTER CHANGE 
sz THIS UINSTRUCTION. T "woP’’ =240) 
020246 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE TGONTENTS OF THE ERROR VECTOR 
020252 012737 020272 000004 MOV #5$,QMERRVEC =: SET FOR TIMEOUT 
020260 005737 177060 TST a#177060 OUT ON XOR? 
20264 012637 000004 MOV (SP) +, a#ERRVEC i ERESTORE THE ERROR VECTOR 
020270 000503 BR SSVLAD TO THE NEXT TEST 
020272 022626 5$: CMP (SP) +, (SP)+ : CLEAR THE STACK oAFTER A TIME OUT 
020274 012637 000004 MOV (SP)+,aM#ERRVEC ::RESTORE THE ERROR VECTOR 
020300 000443 BR $ LOOP ON THE ERESENY TEST 
020302 6$::MAHHHEND OF CODE FOR THE XOR 3 {LOE ON TH 
020302 032777 000400 160626 BIT #B1T08,aSWR :;LOOP _ON SPEC. TEST? 
020310 001407 BEQ 2$ F NO 
020312 017746 160620 MOV aSWR,-(SP) t:SET DESIRED TEST NUM. FROM SWR 
020316 042716 000340 BIC #SSWRMK, (SP) ::STRIP AWAY UNDESIRED BITS 
020322 122637 001100 CMPB ss (SP) +, $TSTINM ON THE ypicut TEST? 
020326 00150 BEQ $OV VER ::BR 
020330 013737 177766 020552 2%: MOV 177766, CPSAVE MOVE CPU ERR REG VALUE TO LOC FOR TST ;DPMOO1 
020336 032737 000001 020552 BIT WBITOO.CPSAVE SEE iF T HE POWER MONITOR BIT IS ON :DPMOO1 
020344 001406 BEQ “BRANCH TO CONTINUE ROUTINE IF CLEAR  :DPMOO1 
020346 042737 000001 177766 BIC #81T00,177766 :CLEAR THE BIT FOUND TO BE SET [DPMOO1 
020354 104177 EMT +177 :CALL SPECIAL POWER FAIL BIT ERROR CALL :DPMOO1 
020356 105037 001101 CLRB = SERFLG [CLEAR THE ERROR FLAG :DPMOO1 
20362 105737 001101 2000$: TSTB $ERFLG +;HAS AN ERROR OCCURRED? 
20366 001421 BEQ 3$ 3BR IF NO 
020370 123737 001113 001101 CMPB  $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
020376 101015 BHI 3$ [:BR IF NO 
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SCOPE HANDLER ROUTINE 


020400 032777 001000 160530 BIT #B1T09,aSWR :;LOOP ON ERROR? 

0204 0014 BEQ 73BR_IF NO 

020410 0137357 001106 001104 /7$: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 

020416 opones BR SOVER 

020420 105037 001101 4$: CLRB SERFLG 33ZERO i. ERROR FLAG 

osoegs tae a 001212 CLR STIMES 73CLEAR THE NUMBER OF ITERATIONS TO MAKE 
0204 15 BR ssESCAPE TO THE NEXT TEST 

020432 032777 004000 160476 3$: BIT #B81T11,aSWR 3: INHIBIT ITERATIONS? 

020440 001011 BNE 7:BR IF YES 

020442 005737 020022 TST SPASS IF FIRST PASS OF PROGRAM 

020446 001406 BEQ 1$ INHIBIT ITERATIONS 

020450 005237 001102 INC SICNT 7Z INCREMENT ITERATION COUNT 

020454 023737 001212 001102 CMP STIMES,SICNT +s CHECK K THE NUMBER OF ITERATIONS MADE 
020462 002024 BGE SOVER 2BR IF MORE ITERATION REQUIRED 

020464 012737 000001 001102 1$: MOV #1,$1CNT :ZREINITIALIZE THE ITERATION COUNTER 
020472 013737 020550 001212 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO ‘ 
020500 105237 001100 S$SVLAD: INCB STSTNM 3.COUNT TEST NUMBERS 

020504 113737 001100 020020 MOVB STSTNM,STESTIN ;;SET TEST NUMBER IN APT MAILBOX 

020512 011637 001104 MOV (SP) ,SLPADR 32SAVE SCOPE LOOP ADDRESS 

020516 011637 001106 MOV (SP), SLPERR 2zSAVE ERROR LOOP ADDRESS 

020522 005037 001214 CLR SESCAPE seCLEAR THE ESCAPE FROM ERROR ADDRESS 
020526 112737 000001 001113 MOVB #1,SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
20534 013777 001100 160376 S$OVER: MOV STSTNM,@DISPLAY 3: DISPLAY TEST NUMBER 

020542 013716 001104 MOV SLPADR, (SP) FUDGE RETURN ADDRESS 

020546 0000 FIXES PS 

020550 000002 SMXCNT: 2. 2;MAX. NUMBER OF ITERATIONS 

020552 000000 CPSAVE: .WORD 0 ;LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 


Se eT Nia rr 
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4076 -SBTTL ERROR HANDLER ROUTINE 


iii iii iii ii iiiiiiiiiiiiiiiiicy 
tS THIS or gf 3 ofitt INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
i ¥SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


GO TO ERTYPE ON ERRO 
SINE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW15=1 HALT ON ERR 
:*SW13=1 WNHIBST ERROR TYPEOUTS 
7*SW10=1 BELL ON ERROR 
zeSu09=1 LOOP ON ERROR 
3* 
3* ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
020554 000000 IBSAVE: .WORD 0 ZLOC'N TO HOLD $ITEMB DURING DUAL ERR  ;DPMO01 
020556 105037 020554 SERROR: CLRB  _==IBSAVE ‘CLEAR THE ITEM BYTE SAVE LOCATION :DPMOO1 
020562 113737 001100 020020 MOVB $TSTNM,STESTIN :SAVE TEST NUMBER FOR ERROR TYPE OUT 
020570 005237 001320 INC ERRCNT [COUNT ALL MULTIPLE ERRORS 
020574 010037 001160 MOV RO, $REGO SSAVE RO FOR POSSIBLE TYPE OUT 
20600 010137 001162 MOV R1,$REG1 :SAVE R1 FOR POSSIBLE TYPE OUT 
020604 010237 001164 MOV R2,$REG2 ZSAVE R2 FOR POSSIBLE TYPE OU 
020610 010337 001166 MOV »SREGS ZSAVE R3 FOR POSSIBLE TYPE OUT 
020614 010437 001170 MOV R4,SREGS ZSAVE R4 FOR POSSIBLE TYPE OUT 
020620 010537 001172 MOV R5,$REGS ZSAVE RS FOR POSSIBLE TYPE OUT 
020624 105237 001101 7$: INCB ~— SERFLG 33 SET THE ERROR FLAG 
20630 001775 BEQ 7$ [DON'T LET THE FLAG GO TO ZERO 
020632 013777 001100 160300 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
020640 032777 002000 160270 BIT #B1T10.aSWR 33BELL ON ERROR? 
20646 001402 BEQ 1$ :NO = SKIP 
020650 104401 001216 TYPE SBELL ; RING BELL 
020654 005237 001110 1$: INC $ERTTL + COUNT THE NUMBER OF ERRORS 
02 011637 001114 MOV (SP) SERRPC ':GET ADDRESS OF ERROR INSTRUCTION 
02 162737 002 001114 SUB PC 
020672 117737 160216 001112 MOVB ssrnec SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020700 122737 000177 001112 CMPBs«a#177,, SITEMB :SEE IF THIS IS THE POWER FAIL CALL :DPMO01 
020706 001426 BEQ 50078 [BRANCH AROUND ROUTINE IF IT IS = DPMO01 
020710 105737 020554 TSTB = IBSAVE [SEE IF THIS IS THE 2ND ERROR CALL :DPMOO1 
020714 901021 BNE 2000$ *BRANCH IF SO = DPMOO1 
020716 013737 177766 020552 MOV 177766,CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST  :DPMOO1 
020724 032737 000001 020552 BIT WBITOO.CPSAVE :SEE IF POWER MONITOR BIT IS SET :DPMOO1 
020732 001414 BEQ 20 SBRANCH IF OK :DPMOO1 
20734 046757 000001 177766 BIC #81T00,177766 :CLEAR THE BIT FOUND SET *DPMOO1 
020742 113737 001112 020554 MOVB SITEMB, IBSAVE [MAKE IBSAVE NON-ZERO FOR DUAL CALL =DPMOO1 
020750 112737 000177 001112 MOVB 4#177,S$ITEMB [SET SITEMB TO SPECIAL POWER FAIL PNTR :DPMOO1 
020756 00040¢ BR 2001 [BRANCH OVER IBSAVE CLEARING :DPMOO1 
20760 105037 020554 20008: CLRB _—s«IBSAVE [CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT :DPMOOQ1 
020764 032777 020000 160144 BIT #81113, aSWR z:SKIP TYPEOUT IF SET 
020772 001004 BNE 20$ :iSKIP TY 
020774 004737 002026 JSR PC,ERTYPE 7:60 TO USER ERROR ROUTINE 
921000 104401 001223 te TYPE  ,$CRLF 
021004 122737 000001 020034 (MPB ss MAP TENV,, SENV : RUNNING IN APT MODE 
021012 901007 BNE ::NO,SKIP APT ERROR REPORT 
021014 113737 001112 021026 MOVB  $ITEMB,21$ [:SET ITEM NUMBER AS ERROR NUMBER 
021022 004737 021220 JSR PC, SATY4 ::REPORT FATAL ERROR TO APT 
021026 000 21$: .BYTE 0 


Ne ee ae = 
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021027 000 .BYTE 0 

021030 000777 22$: BR 22$ T ERROR LOOP 

021032 105737 020554 2$: TSTB IBSAVE iP IF POuER FAIL ERROR CALL :DPMO01 
021036 001004 BNE $ ‘BRANCH IF NOT = HALT NOT ALLOWED [DPMO01 
021040 005777 160072 TST aSWR ‘;HALT ON ERROR 

021044 100001 BPL 3$ ¢3SKIP IF CONTINUE 

021046 000000 HALT ;3HALT ON ERROR! 

021050 032777 001000 160060 3S: BIT #B1T09,aSwR 3h LOOP ON ERROR SWITCH SET? 

021056 001405 BEQ 4$ F NO 

021060 105737 020554 TSTB  —«IBSAVE :SEE IF THIS IS THE PWR MNTR BIT ERROR ;DPMOO1 
021064 001257 BNE SBRANCH BACK IF SO = FUDGING NOT ALLOWED: DPMOO1 
021066 013716 001106 MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 

021072 005737 001214 4$: TST SESCAPE ;CHECK FOR AN ESCAPE ADDRESS 

021076 001405 BEQ 5$ F NONE 

021100 105737 020554 TSTB —«IBSAVE :SEE IF THIS IS THE PWR MNTR BIT ERROR ;:DPMOO1 
021104 001247 BNE ‘BRANCH BACK IF SC = FUDGING NOT ALLOWED: DPMOO1 
021106 013716 001214 a MOV SESCAPE,(SP) | :;FUDGE RETURN ADDRESS FOR ESCAPE 

021112 022737 021676 000042 CMP WSENDAD,@#42 = ;:ACT=11 AUTO-ACCEPT? 

021120 001001 BNE 6$ ::BRANCH IF NO 

021122 000000 ‘i HALT Sr YES 

021124 105737 020554 TSTB _—sXIBSAVE sSEE IF THIS IS THE PWR FAIL ERROR CALL ;DPMOO1 
021130 001235 BNE 7$ [BRANCH BACK TO CALL ORIGINAL ERR IF SO :DPMOO1 
021132 032777 001000 157776 BIT #SW9,aSWR TARE WE LOOPING ON THIS ERROR? 

021140 001417 BEQ 1000$ ‘BRANCH IF NOT 

021142 012737 177777 177766 MOV #-1, CPUERR [CLEAR CPU ERROR REGISTER 

021150 042737 177776 177572 BIC #177776,MMRO = CLEAR MEMORY. MA MANAGEMENT STATUS REGISTER 
021156 012737 177777 003032 MOV #~1, TOFLAG SINITIALIZE TRAP FLA ¢ 

021164 012737 177777 003224 MOV #~1-CPFLAG S INITIALIZE crt TRAP FLAG 

021172 012737 177777 003374 MOV #-1 *MMFLAG INITIALIZE MEMORY MANAGEMENT TRAP FLAG 

021200 000002 1000$: RTI SRETURN TO TEST 


4078 





WWINNRN oO 


SANPOSOROSNSOROTONW 


021446 


-—-00 —OoO—— 
o ~/ 
So 


SSSSLSUSnSsolS = 


o-o 
oo 
—b 
WwW 

~N 

o 


000200 
000001 
000100 
000040 
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000001 
000001 


000001 


021444 
000001 
000100 
000004 
000002 
020014 


020030 


020030 


020032 
000004 


000004 
woe 

177776 
022052 
021446 
020034 


020014 


021444 
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021446 
021444 


021446 


020034 
020035 


000004 


020014 


021356 
000004 


020016 
000004 


- SBTTL 


SEQUENCE 


APT COMMUNICATIONS ROUTINE 


FRAAAAAAAEAAAAAAAEARAAEEEEEAEARAEEEAAAERERERARRERERAERREERERERREERREERE 


1$: 


2$: 


12$: 


R 


SMFLG: 
SLFLG: 
SFFLG: 


EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 


#1,$FFLG 
#1. $MFLG 
SATYC 

#1,SFFLG 

RT =CSP) 

SMFLG 

5$ 

#APTENV, SENV 
#APTSPOOL , SENVM 
a4(SP), RO 
#2,4(SP) 

SMSGTYPE 


1$ 
RO, SMSGAD 
(RO)+ 


2s 
SMSGAD ,RO 
RO 


RO. SMSGLGT 
#4, SMSGTYPE 


a4(SP).4$ 
#2,4(SP) 
177776,-(SP) 
PC STYPE 


SFFLG 
12 


LG 
(SP)+,R1 
(SP)+, “RO 


aa REPORT FATAL ERROR 
:TO TYPE A MESSAGE 


32TO ONLY REPORT FATAL ERROR 
33PUSH RO ON STACK 
33PUSH R1_ON STACK 
Sr: TYPE A MESSAGE? 
: OPERATING UNDER APT? 
::SHOULD SPOOL MESSAGES? 
33GET MESSAGE ADDR. 
RETURN ADDR. 
:2S6E IF ogy LAST XMISSION? 


::PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


23 SUB START OF MESSAGE 

GET MESSAGE LNGTH IN WORDS 
:3PUT LENGTH IN MAILBOX 
7-TELL APT TO TAKE MSG. 


32PUT MSG ADDR IN JSR LINKAGE 


RETURN ADDRESS 
72PUSH 199776 ON STACK 
::CALL TYPE MACRO 


= 3 SHOULD REPORT FATAL ERROR? 
ee NOT: BR 


; SRUNNING UNDER APT? 
{FINISHED LAST MESSAGE? 
F NOT: WAIT 


37GET ERROR & 


BUMP RETURN 
73 TELL abt TO TAKE ERROR 
3-CLEAR FATAL FLAG 


N ADDR. 


iC 
ae POP STACK INTO R1 
2 POP STACK INTO RO 


RETURN 
:MESSG.. FLAG 
TIFATAL FLAG 
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4080 


021450 


021546 
021546 


021552 


021632 
021632 


021702 


013746 
104405 
005737 
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177572 
172516 


2 
100000 


021530 


020022 
001110 
021570 
001110 


001223 
001110 
000042 


021666 


000042 


a 9 
MACRO M1113 26-OCT-81 11:08 PAGE 95 SEQUENCE 


020022 


-SBTTL END OF PASS ROUTINE 


PEI iitiiiiitiiiitiisiitiiiiie) 

[* INCREMENT THE PASS NUMBER ($PASS) 

:*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

S*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yvvyy" 
; XXXXX yyvY MAL NUMBERS 


E 
3*IF SW12=1 INHIBIT TRACE TRAP 
:*IF THERES A sag GO TO IT 
:*IF THERE ISN'T JUMP TO LOOP 


SEOP: 
SCOPE ;LOOP ON LAST TEST 
CLR MMRO STURN OFF FULL RELOCATION 
CLR MMR3 ;DISABLE THE UNIBUS 
TBITR RESTORE THE T BIT nt IT WAS ON 
CLR STSTNM +:7ERO THE TEST NUMBER 
CLR STIMES 3ZERO_THE NUMBER OF ITERATIONS 
INC SPASS i INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ::DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ +: LOOP? 
SEOPCT: .WORD 1 
BGT $DOAGN ri YES 
MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
SENDCT: .WORD 1 
$EOPCT 
TYPE ,65$ ri: TYPE ASCIZ STRING 
BR 64$ iiGET OVER THE ASCIZ 
ijg58: VASCIZ <12><15>/END PASS &# 
MOV SPASS,-(SP) ::SAVE $PASS FOR TYPEOUT 
:: TYPE PASS NUMBER 
TYPDS 7:60 TYPE--DECIMAL ASCII WITH SIGN 
TST SERTTL [SEE IF THERE ARE ANY ERRORS TO REPORT ;DPMOO1 
BEQ 10008 [BRANCH AROUNT MESSAGE PRINT IF NOT ‘DPMOO1 
TYPE ~,67$ :3 TYPE ASCIZ STRING 
BR 66$ “GET OVER THE ASCIz 
i678: .ASCIZ. / TOTAL ERRORS SINCE LAST REPORT 
MOV SERTTL,-(SP)  ::SAVE SERTTL FOR TYPEOUT 
[:TOTAL NUMBER OF ERRORS 
TYPDS ::GO TYPE--DECIMAL ASCII WITH SIGN 
1000$: TYPE SCRLF [: TYPE CARRIAGE RETURN, LINE FEED 
CLR $ERTTL T:CLEAR ERROR TOTA 
$GET42: MOV a#42,R0 7:GET MONITOR ADDRESS 
BEQ SDOAGN 33 H IF NO MONITOR 
CLR -(SP) *: INSURE THE "T’' BIT IS CLEAR 
MOV WSCLR.T,-(SP) ::SETUP FOR a RTI OR RIT 
BR SRTRN ::G0_DO AN RTI OR RTT TO LOAD THE PSw 
aie i t:WITH A CLEARED "'T’’ BIT 
MOV a4#42,R0 2 INSURE RO. CONTAINS THE MONITORS 
BEQ SDOAGN *=RETURN ADDRESS 
RESET 7: CLEAR THE ae tty 
SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
no 32SA 
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ND OF PASS ROUTINE 
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021742 


021744 


0 
021752 


000240 


000020 
010000 


021750 


000020 
021744 


377 


SDOAGN: 


157214 


1$: 
SRTRN: 


SLOOP: 


SRTNAD: 
STBIT: 
000 S$ENULL: 


NOP 


- WORD 


. WORD 
BYTE 
-EVEN 
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#20, (SP) 
welfie, aswR 


$TBIT 
1$ 


#20, ( 
*SLO0P. 2 sp) 


a(PC)+ 
LOOP 


0 
-1,°1,0 


SEQUENCE 


sgACT11 
:¢PUSH OLD PSW a ON STACK 


AR T 
+ ¢RUN ‘ITH TRACE TRAP? 
3315 IT TIME FOR TRACE TRAP 
F_NO 


7:SET TRACE TRAP 

:2JUMP TO START OF ba ha 

eA erie bo IS _ CHANGED TO 
"RIT" IF RIT IS A LEGAL 

‘INSTRUCTION 


3 sRETURN 


z:°'T’’ BIT STATE INDICATOR 
TINULL CHARACTER STRING 


fet Cas Ct 
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STORE RO-R5 ROUTINES 
4082 « SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


J AARARAAAAAAARARAAAERAEEEEERERAEEAAEEEAERAREERARARAAERARRARREREE 


7 #SAVE RO-R5 
s#CALL: 


SEQUENCE 118 







SAVREG 
; UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


S sTOP===(+16) 
s% +2---(+18) 
s% +4---R5 


2s 2s 
++ 
——2 + + 
rit 
=—NIWS 









»#4+14---R0 
021756 SAVREG: 

021756 010046 MOV RO,-(SP) zzPUSH RO ON STACK 
021760 010146 MOV R1,-(SP) + PUSH R1 ON STACK 
021762 010246 MOV R2,-(SP) PUSH Re ON STACK 
021764 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 
021766 010446 MOV R4,-(SP) +:PUSH R4 ON STACK 
021770 010546 MOV R5,-(SP) *:PUSH RS ON STACK 

1772 01664 22 MOV 22(SP),-(SP)  ::SAVE PS OF MAIN FLOW 
021776 016646 000022 MOV 22(SP).-(SP)  ::SAVE PC OF MAIN FLOW 
022002 016646 000022 MOV ge (SP). *<(SP)  -:SAVE PS OF CALL 
022006 016646 000022 MOV 2(SP),-(SP)  3;SAVE PC OF CALL 
022012 RTI 

:*RESTORE RO-RS 

:*CALL: 

= RESREG 
022014 SRESREG: 
022014 012666 000022 MOV (SP)+,22(SP) ;RESTORE PC OF CALL 
022020 012666 000022 MOV (SP)+,22(SP)  ::RESTORE PS OF CALL 
022024 012666 000022 MOV (SP)+,22(SP)  ::RESTORE PC OF MAIN FLOW 

22030 012666 000022 MOV (SP)+,22(SP)  :RESTORE PS OF MAIN FLOW 
022034 012605 MOV (SP)+.R5 ::POP STACK INTO RS 
022036 012604 MOV (SP)+-R4 +:POP STACK INTO R& 
022040 012603 MOV (SP)+.R3 ::POP STACK INTO R3 
022042 012602 MOV (SP)+,R2 ;3POP STACK INTO R2 
022044 012601 MOV (SP)+-R1 sPOP STACK INTO R1 
022046 012600 MOV (SP) +-RO ::POP STACK INTO RO 
022050 0 RTI 


CKKUADO 1 gaa UBI MAP 
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4084 


022052 
022656 
02 


SENSSECRVGNS 


022240 


ae 


SxoS 


_ 
Ww 


s 
NNVINA NS 


o 
Ss 


: 


MPM — PO 
~“ 
Ww 


sees 
atanassases 


SSSSESSNSN 
Satanase 


_ 
Nm 
SUVNWNUMIWNNON 


WwW 
COANUNW— oO 


o = 
w 
S NANNNONEN 


S _- © 


001155 


000002 
000001 


000160 


022122 
021210 


000040 


000002 
000011 
000200 


022412 


022264 
001154 


001152 
000001 


022264 
022412 


000040 
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020034 
020035 


020035 


- SBTTL TYPE ROUTINE 


J ARARAAAAAAARARAARAAREEAEAARARARAERAAAAEERAAEREREREEEAERERAEEREREE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 i F 


:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
:*NOTE1: SNULL CONTAINS THE CHARACTER 10 BE USED AS THE FILLER CHARACTER. 
s *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
 *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3* 
s*CALL: 
:*1) USING A TRAP INSTRUCTION 
nal TYPE §,MESADR ZzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
i* YPE 
3* MESADR 
** 
$TYPE: TSTB  $TPFLG zz1S THERE A TERMINAL? 
BPL 1$ ::BR IF YES 
HALT T:HALT HERE IF NO TERMINAL 
BR 3$ ee E 
1$: MOV RO,-(SP) sz SAVE RO 
MOV @2(SP) ,RO 33GET ADDRESS OF ASCIZ STRING 
CMPB ss MAPTTENV,, SENV RUNNING IN AP 
BNE ::NO,GO CHECK FOR APT CONSOLE 
BITB § #APTSPOOL.SENVM ::SPOOL MESSAGE TO APT 
BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
JSR PC. $ATY3 7:SPOOL MESSAGE TO APT 
61$: “WORD 0 7 MESSAGE ADDRESS 
62$: BITB = #APTCSUP,SENVM 3 ;APT CONSOLE SUPPRESSED 
BNE 60$ “VES,SKIP TYPE OUT 
2s: MOVB (RO) +,=(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ :BR IF IT ISN'T THE TE T 
TST (SP) + [:1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO : RESTORE RO 
3$: ADD #2, (SP) : ADJUST RETURN PC 
4$: CPB #HT, (SP) BRANCH IF <HT> 
CPB #CRLF (SP) ::BRANCH IF NOT <CRLF> 
TST (SP)+ ::POP <CR><LF> EQUIV 
hin zi: TYPE A CR AND LF 
CLRB = $CHARCNT z:CLEAR CHARACTER COUNT 
BR 2$ S:GET NEXT CHARACTER 
5$: JSR PC, STYPEC £:G0 TYPE THIS CHARACTER 
6S: CMPB = SFILLC,(SP)*+  ::1S IT TIME FOR FILLER CHARS.? 
BNE 2$ ::1F NO GO GET 
MOV S$NULL ,-(SP) [:GET # OF FILLER CHARS. NEEDED 
[AND THE NULL C 
7$: DECB ~—-:1( SP) +:DOES A NULL NEED To BE TYPED? 
BLT 6$ ::BR IF NO--GO THE NULL OFF OF STACK 
JSR PC ,STYPEC 33G0 TYPE A NULL 
DECB $CHARCNT :D0 NOT COUNT AS A COUNT 
BR 7$ +: ooP 
:HORIZONTAL TAB PROCESSOR 
8S: MOVBso# -, (SP) ::REPLACE TAB WITH SPACE 


119 
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TYPE ROU 


= 


232 022264 
7 000007 


Ouse 
Sse * 
Ss 
wn 
~SI 
nor 
fos 


MMM z 


SoOoofooCoO 
YFF 
— 
° 
w 
| 
N 
N 


156652 


156646 
177600 
000023 


ooo 
Mrsng 
~~ 
ANOS 
i ] 
— 
NT 
= 
oa 


we 
x) 
ue 
> 
o 
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MS i 4 kA 156626 
16 16 156622 
16 177600 
16 000021 


022336 105777 156604 
22344 126627 000002 


022354 116677 00000 
022362 122766 00001 


022372 105037 022412 
ose 7ee 122766 000012 


2406 2 
022410 105227 
022412 


000 
022414 000207 


022412 


000021 


156566 
000002 


000002 


STYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


B 
SCHARCNT : . WORD 
STYPEX: RTS 
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Oe sree 

#7, SCHARCNT 
(SP) + 

2$ 


a$TKB,-(SP) 
#177600, (SP) 
#SXOFF , (SP) 
102$ 


asTks 

a$TKB, (SP) 
#177600, (SP) 
#SXON, (SP) 


(SP)+ 

a$TPS 

ZC) #$XON 

gS) asTPB 
SP) 


ee wets) 
(PCs 
PC 


:s TYPE A SPACE 
;;BRANCH IF NOT AT 
33 TAB STOP 
sPOP SPACE OFF STACK 
SIGET NEXT CHARACTER 


3CHAR IN KYBD BUFFER? 
BR IF NOT 


ET CHAR 
33STRIP EXTRANEOUS BITS 
HAR _XOFF 


sWAIT FOR CHAR 


72GET CHAR 
zeSTRIP_IT 
;;WAS IT XON? 
:-BR IF NOT 


z3FIX STACK 


7sWAIT UNTIL PRINTER IS READY 
2215 CHARACTER A RANDOM XON? 
CH IF YES 


LOAD CHAR TO BE TYPED INTO DATA REG. 
HIS oes Me A CARRIAGE RETURN? 


H IF 
3 YES~=CLEAR CHARACTER COUNT 
315 CHARACTER A LINE FEED? 
CH_IF YES 


H Y 
::COUNT THE CHARACTER 


3s CHARACTER COUNT STORAGE 


SEGUENCE 120 
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4086 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
eet iii itt tii itti iii itiiitiii iii iii iiiii ii iis. 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 
— HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 

;* MOV NUM, = (SP) sNUMBER TO BE TYPED 

3* TYPOS 7:CALL FOR TYPEOUT 

3* BYTE WN 7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* BYTE :7M=1 OR O 

3* 331=TYPE LEADING ZEROS 

;* 370=SUPPRESS LEADING ZEROS 

°*® 


3 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ebay OR $TYPOC 
3*CALL: 


38 MOV NUM, =(SP) 7 NUMBER TO BE TYPED 
3* TYPON 3;CALL FOR TYPEOUT 
ze 
s eSTYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** $ 
3 MOV NUM, = (SP) z;NUMBER TO BE TYPED 
ve TYPOC 7:CALL FOR TYPEOUT 
022416 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
022422 116637 000001 022641 MOVB 1(SP) ,SOFILL zZLOAD ZERO FILL SWITCH 
2430 112637 022643 MOVB (SP)+,S$OMODE+1 ;; ER OF DIGITS TO TYPE 
022434 062716 000002 ADD #2, (SP) ADJUST RETURN ADDRESS 
022440 000406 BR STYPON 
022442 112737 000001 022641 S$TYPOC: MOVB #1,S0F ILL 7zSET THE ZERO FILL SWITCH 
022450 112737 000006 022643 MOVB #6, S0MODE +1 szSET FOR SIX(6) DIGITS 
022456 112737 000005 022640 $TYPON: MOVB #5, S0CNT 72SET THE ITERATION COUNT 
022464 010346 MOV R3,-(SP) ZZ SAVE R3 
22466 010446 MOV R4,-(SP) Z2SAVE R4 
022470 010546 MOV R5,-(SP) 77 SAVE RS 
022472 113704 022643 MOVB SOMODE+1,R4 72GET THE NUMBER OF DIGITS TO TYPE 
022476 005404 NEG R4 
22500 062704 000006 ADD #6,R4 3 SUBTRACT IT FOR MAX. ALLOWED 
022504 110437 022642 MOVB R4, SOMODE ::SAVE IT FOR US 
022510 113704 022641 MOVB SOFILL,R4 2:GET THE ZERO FILL SWITCH 
022514 016605 000012 MOV 12(SP),R5 7zPICKUP THE INPUT NUMBER 
022520 005003 CLR R3 33CLEAR THE OUTPUT WORD 
022522 006105 1$: ROL R5 ROTATE MSB INTO ‘'C’' 
022524 000404 BR 3$ 3:60 DO MSB 
022526 006105 2$: ROL R5 72FORM THIS DIGIT 
0225 006105 ROL RS 
022532 006105 ROL RS 
022534 010503 MOV R5.,R3 
225 006103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
022540 105337 022642 DECB SOMODE z:TYPE THIS DIGIT? 
022544 100016 BPL 72;BR IF NO 
022546 042703 177770 BIC #177770,.R3 33GET RID OF JUNK 
022552 001002 BNE 4$ 33 
022554 005704 TST R4 SUPPRESS THIS 0? 
022556 001403 BEQ 5$ a3 F YES 
022560 905204 4$: INC R4 7:DON'T SUPPRESS ANYMORE 0'S 
022562 eye 000060 BIS #'0,R3 7zMAKE THIS DIGIT ASCII 
022566 052703 000040 5$: BIS #" URS sZzMAKE ASCII IF NOT ALREADY 
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an 


SSSES3 
eo 


oooceo 
3 st 
Soo 
pas 

Ww 


0 029638 

022640 7$: 
6$: 

000002 000004 
8$: 
SOCNT: 
SOF ILE: 
$ E: 
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33 SAVE FOR TYPING 
2360 ty Me DIGIT 


: COUN 
$IBR IF MORE TO DO 


7; INSURE LAST DIGIT iw T A BLANK 
Ht A hy Be LAST DIGIT 


33 R3 
33SET THE STACK FOR RETURNING 


zRETURN 
$3 STORAGE FOR ASCII DIGIT 
INATOR FOR TYPE ROUTINE 
::OCTAL DIGIT oe ER 
sZERO FILL SWITCH 
7ZNUMBER OF DIGITS TO TYPE 


SEQUENCE 122 


a 
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SEQUENCE 123 


4088 neged | CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
seeeesesadescnes aecatece esacomanestonenessnenttenentaaanntes 
*THIS ROUTINE IS USED TO CHANGE A eit BINARY NUMBER TO A 5-DIGIT 
5 #SIGNED DECIMAL (ASCII) NUMBER AND T 


> *NUMBER IS POS 


YPE IT. DEPENDING ON 


E WHETHER THE 
ITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


; 
:* 


4 


746 020200 
000020 


o 

~w 

nw 

oa 

wi 

™ 
-COoCoo°0°oo 


re 
S23 


000055 000001 


3 023060 
3 000040 


2s: 
023050 
022720 he 3$: 


1$: 


So 

Nm 

~ nm 

RNENS 

£s=Ss=s 
NMNOAUNMMUINYW 
SoSSNoSSo 

LRUASS 


774 
022730 060105 4$: 


06316 5$: 


6663 000001 177777 
702 000060 6$: 
000040 7$: 


= 
nN 
N 
Ss 
=Oo0——— 
gee cakes 
N 


N 
RES 


000010 


oO 
iat) 
nm 
y 
= 

[Ssxs 
Own 
Ww 

SS 


So 
w 
NN 
Nm 


S 


So 

Nm 

3 

Nm 

N 

—Oo°o°0o0 -— = 

S 
S 


_ 
=I NIWA BND: 


177777 177776 
9$: 


023032 023060 


te 
$TYPDS: 


MOV 
TYPDS 


;*REPLACED WITH SPACES. 
*CALL: 


NUM ,=-(SP) 


RO,-(SP) 


(SP) 


1(sP) -1(R3) 
#°0,R2 


7PUT_THE BINARY NUMBER ON THE STACK 
7:60 TO THE ROUTINE 


IGET THE INPU 
NPUT 


as If I POS. 

73MAKE THE BINARY NUMBER eee 
SCII NUMBER 

¢22eR0 | CONSTANTS INDEX 


Sitter THE BCD _—- 
e2GEr THE CONSTAN 
as 4 RL BCD DIGIT 


:BR 
7 INCREASE THE BCD DIGIT BY 1 


3:ADD BACK THE CONSTANT 
er IF BCD DIGIT=0 
FALL THROUGH 


IF 
zi STILL Sa LEADING 0°S? 


:2BR_ IF NO 

iI YES--SET THE SIGN 
MAKE THE BCD DIGIT ASCII 

77MAKE_IT A SPACE IF NOT ALREADY A DIGIT 

32PUT_THIS ring IN THE OUTPUT BUFFER 


3sCHECK THE TABLE INDEX 

3760 DO THE NEXT DIGIT 

3:60 TO EXIT 

22GET THE LSD 

3:60 CHANGE TO ASCII 

2 WAS i THE FIRST NON-ZERO? 


2BR 
PYES@oSET re SIGN FOR TYPING 
eeSET THE TERMINATOR 


‘INOW TYPE THE NUMBER 
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000002 000004 





MACRO a 26-OCT-81 11:08 PAGE 99-1 SEQUENCE 124 
MOV 2(SP) ,4(SP) 3;ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI 3 RETURN TO USER 
10000. 
1000. 


1 . 
-BLKW 4 


10 
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TTY INPUT ROUTINE 


4090 .SBTTL TTY INPUT ROUTINE 
3 RERAAAAAAAAAAEAEAAAAEAAERAEAAAKAARAAAAAAEAEREAAEEREARAAAAERAEEEEEEE 
-ENABL LSB 
-DSABL 
FARRAR ERAAAREERARAEEREEREREEREEREEEREEEREREEREREREEERREREREERERE 
gSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
3* sa 
* RDCHR t: INPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE :: CHARACTER IS ON THE STACK 
* ::WITH PARITY BIT STRIPPED OFF 
023070 011646 $RDCHR: MOV SP) ,-(SP) PUSH DOWN THE PC 
023072 016666 000004 000002 MOV aiSP5, 2(SP) ZESAVE T HE PS 
023100 105777 156036 1$: TSTB as} ::WAIT FOR 
023104 100375 BPL ‘3° +:A CHARACTER 
23106 117766 156032 000004 MOVB = a$TKB, 4 (SP) S:READ THE TTY 
023114 042766 177600 000004 BIC tees Ne 4(SP) 33GET RID OF JUNK IF ANY 
23122 026627 ooo 000023 CMP 4(SP) ,#23 :1$ IT A CONTROL-S? 
023130 001013 BNE 3$ + :BRANCH 
023132 105777 156004 2$: TSTB © aSTKS ::WAIT FOR A CHARACTER 
23136 100375 BPL 2$ ::LOOP UNTIL ITS THERE 
023140 117746 156000 MOVB  a$TKB,~(SP) iGET CHARACTER 
023144 042716 177600 BIC #°C177, (SP) MAKE IT 7-BIT ASCII 
023150 022627 000021 CMP (SP)+,#21 t:1S IT A CONTROL-Q? 
023154 001366 BNE 2$ t:IF NOT DISCARD IT 
023156 000750 BR 1$ Z:YES, RESUME 
23160 026627 000004 000021 3s: CMP 4(SP) ,ASXON t:1$ IT A RANDOM XON? :RANOO1 
023166 001744 BEQ SHBRANCH IF YES :RANOO1 
023170 026627 000004 000140 CMP 4 (SP) ,#140 ::1S IT UPPER CASE? 
023176 002407 BLT 4$ ::BRANCH IF YES 
026627 000004 000175 CMP 4(SP) #175 t:1S IT A SPECIAL CHAR? 
023206 003003 BGT 4 ii H IF YES 
023210 042766 000040 000004 BIC #40,4(SP) MAKE IT UPPER CASE 
023216 000002 4$: RTI ::G0 BACK TO USER 
Z OTT ITITITITITITITITITITILILILILIT ELE TELL ELLE LLL LL 
tar ROUTINE WILL INPUT A STRING FROM THE TTY 
3@ : 
* RDLIN r INPUT A STRING FROM THE TTY 
:* RETURN HERE : [ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
= [TERMINATOR WILL BE A BYTE OF ALL O'S 
023220 010346 $RDLIN: MOV R3, (SP TSAVE R3 
023222 012703 023326 1$: MOV #$TT NRS GET ADDRESS 
023226 022703 023336 2$: CMP SSTTYINGS. ~R3. 0: :BUFFER FULL? 
023232 101405 BLOS 4$ ::BR IF YES 
23234 104406 RDCHR $360 READ ONE CHARACTER FROM THE TTY 
23236 «112613 MOVB = (SP) +, (R3) +:GET CHARACTER 
023240 122713 000177 10$: CMPB ‘#177, (R3) *:1$ IT A RUBOUT 
023244 001003 BNE $ ::SKIP IF NOT 
023246 104401 001222 4$: TYPE SQUES S:TYPE A °?° 
023252 000765 BR [CLEAR THE BUFFER AND LOOP 
023254 111337 023324 3$: MOVB = (R3),,9$ S:ECHO THE CHARACTER 
23260 104401 023324 TYPE =, 
023264 122723 000015 CMPB so #15,, (R3)+ ::CHECK FOR RETURN 
023270 001356 BNE 2$ 2 LOOP IF NOT RETURN 
023272 10506 177777 CLRB = = 1(R3) Z3CLEAR RETURN (THE 15) 
023276 104401 001224 TYPE  ,SLF 33 OBE A LINE FEED 
023302 012603 MOV (SP)+,R3 + :RESTORE ta 





a ee - 
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TTY INPUT ROUTINE 
0 


023304 011646 MOV (SP) ,=(SP) ;zADJUST THE STACK AND PUT ADDRESS OF THE 
023306 016666 000004 000002 MOV 4(SP5 ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
023314 012766 023326 000004 MOV WSTTYIN,4(SP) 

023322 000002 RTI 7 RETURN 

023324 000 9$: -BYTE 0O 3zSTORAGE FOR ASCII CHAR. TO TYPE 
023325 000 -BYTE O 72 TERMINA 

023326 STTYIN: .BLKB 8. sRESERVE 8 BYTES FOR TTY INPUT 
023336 136 SCNTLU: .ASCIZ /*U/<15><12> 7: CONTROL ‘ 

023 : .ASCIZ /*G/<15><12> ::CONTROL ‘'G’' 

023 sASCIZ <15><12>/SWR = / 

023 eASCIZ / NEW = / 
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TRAP DECODER 
4092 


023372 


023452 
4093 023454 
4094 023456 
4095 023460 





010046 
016600 
00 


011646 
016666 
000002 


023414 


005626 
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» SBTTL TRAP DECODER 


J RARER REEEEREEE EAE EAAEERREREERREERERERRERERERE 


ATHIS as al ae oie oe THE a BYTE OF THE ‘'TRAP*’ INSTRUCTION 


[*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
*GO TO THAT ROUTINE. 
STRAP: MOV RO,-(SP) ZSAVE RO 
000002 MOV 2(SP) ,RO 3IGET TRAP ADDRESS 
TST =(RO) KUP BY 2 
MOVB (RO) ,,RO 33GET RIGHT BYTE OF TRAP 
ASL POSITION FOR INDEXING 
023426 MOV $TRPAD (RO) ,RO i INDEX TO TABLE 
RTS 0 TO ROUTINE 
‘THIS 1S USE TO HANDLE THE “geTPAI” MACRO 
TRAP2: MOV (SP) ,=(SP) :MOVE THE PC DOWN 
000004 000002 MOV 4(SP5 ,2(SP) SIMOVE T HE PSwW DOt'N 


RTI 2sRESTORE THE PSW 
-SBTTL _TRAP 


TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE anti INSTRUCTION. 


$TRPAD: .WORD  STRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC ::CALL=TYPOC | TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
SRDCHR ::CALL=RDCHR  TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ::CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
SRDOCT ::CALL=RDOCT —§ TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
SSAVREG ::CALL=SAVREG TRAP+11(104411) SAVE RO-R5 ROUTINE 
SRESREG ::CALL=RESREG TRAP+12(104412) RESTORE RO-R5 ROUTIN 
TBITOF ::CALL=TBITO | TRAP+13(104413) THIS WILL TURN OFF T BIT TRAPPING 
TBITRE ::CALL=TBITR TRAP+14(104414) THIS WILL RETURN THE T BIT TO PREVIOUS CONDI | 
SRDOCT ::CALL=RDOCT — TRAP+15(104415) READ OCTAL NUMBER 
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4097 


023640 
000340 


155420 
023644 
023534 


eet PRY tet et 


NN 
Ww 
™N 


Ss 
So 
OWWER SE 
Ss 


loleflelelolelolelolelolo) 
NOOO 


ee ee ee 


023530 
000776 


023640 


023644 
155352 


023462 
000340 


023624 042766 000020 
021750 


023644 
4098 025646 
4099 


L 10 
MACRO M1113 26-OCT-81 11:08 PAGE 102 


000024 $PWRDN: MOV WSILLUP,@#PWRVEC :;SET FOR FAST UP 
000026 MOV #340, a#PWRVEC+2 sIPRIO: :7 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) +:PUSH R4 ON STACK 
MOV R5,-(SP) +:PUSH R5 ON STACK 
MOV aSWR,-(SP) 2 PUSH @SWR ON STACK 
MOV SP, $SAVR6 AVE §S 
000024 MOV #SPWRUP, a#PWRVEC™ sor UP VECTOR 
BR .-2 : s HANG 
PTTIITITITIIIITITITITITTTITITITI TTL tT TTL LLL LLL LLL LLL LLL 
“POWER UP ROUTINE 
000024 $PwRUP: #SILLUP @#PURVEC SET FOR FAST DOWN 
MOV SSAVR6, SP SP 
CLR SSAVR tIWAIT LOOP FOR THE TTY 
1$: INC SSAVR6 t:WAIT FOR THE INC 
BNE 1$ ::0F WORD 
MOV (SP)+,aSWR ::POP STACK INTO a@SwWR 
MOV (SP) +.R5 ::POP STACK INTO R5 
MOV (SP) +,R4 t:POP STACK INTO R4 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+.R1 ::POP STACK INTO R1 
MOV (SP) + RO POP STACK INTO RO 
000024 MOV SPWRON, a#PWRVEC per UP THE POWER DOWN VECTOR 
000026 MOV 7340 aaPURVEC?D 0:7 
TYPE RE PORT THE POWER FAILURE 
SPWRMG: .WORD PWRMSG :TPOWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) S:RESTART AT START 
SPWRAD: .WORD START 3 RESTART ADDRESS 
000002 BIC #20,2(SP) [CLEAR ‘'T'’ 
cL $TBIT T:CLEAR THE At eit FLAG 
SILLUP: HALT zTHE POWER UP SEQUENCE WAS STARTED 
BR 72 :3 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 PuT THE SP HERE 
120 PWRMSG: -ASCIZ <12><15>?POWER FAILURE, RESTARTING PROGRAM? 


-SBTTL 


SEQUENCE 128 


POWER DOWN AND UP ROUTINES 


SREAAAAEREAAAEAAEAAAAAAEAAEAEAAERERAARAERAARARHREEKRERARERAEAERAEEEAREREREEE 


“POWER DOWN ROUTINE 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


| 

| 4101 -SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCiI CONVERT ROUTINE 

| FRARAAAARAAAAAERARAEAAAAEEAERERAEAEREEEERAREREREARAEEAAREREEAEREEE 

[*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINAPY NUMBER TU AN 

: SUNS I GNED OCTAL ASCIZ NUMBER. 
*& 

| 

| 

| 


8 MOV #PNTR,=(SP) Z:POINTER TO LOW WORD OF BINARY NUMBER 
ie JSR PC, a#$DB20 ZCALL THE ROU 
* & RETURN :THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 

023712 104411 $DB20: SAVREG iE SAVE ALL REGISTERS 
023714 016601 000002 MOV 2(SP),R1 PICKUP THE POINTER TO LOW WORD 
023720 012705 024031 MOV #SOCTVL+13. RS 3 POINTER TO DATA TABLE 
023724 012704 000014 MOV #12. RS :DO ELEVEN CHARACTERS 
023730 012703 177770 MOV #°C7_R3 + SMASK 
23734 012100 MOV (R1)+,RO S:LOWER WORD 
023736 012101 MOV (R1)+_R1 ::HIGH WORD 
023740 005002 CLR R :: TERMINATOR 
023742 110245 1$: MOVB = R2, = (RS) ::PUT CHARACTER IN DATA TABLE 
023744 010002 MOV RO.R2 [:GET THIS DIGIT 
023746 005304 DEC RG S:COUNT THIS CHARACTER 
023750 003007 BGT 3$ :38R IF NOT THE LAST. DIGIT 
023752 001405 BEQ 2$ [BR IF IT IS THE LAST DIGIT 
023754 005205 INC R5 SZALL DIGITS DONE-ADJUST POINTER | FOR FIRST 
023756 010566 000002 MOV R5,2(SP) S:ASCIZ CHAR. & PUT IT ON THE STA 
023762 104412 RESREG : ERESTORE ALL REGISTERS 
023764 000207 RTS PC SRETURN TO USER 
023766 006203 2$: ASR R3 POSITION THE MASK FOR THE LAST DIGIT 
023770 006001 3$: ROR R1 <ZPOSITION THE BINARY NUMBER FOR 
023772 006000 ROR RO i THE NEXT OCTAL DIGIT 
023774 006001 R1 
023776 006000 ROR RO 

006001 ROR R1 
024002 006000 ROR RO 
024004 040302 BIC R3,R2 ;MASK OUT ALL JUNK 
024006 062702 000060 ADD #°0,R2 [MAKE THIS CHAR. ASCII 
024012 000753 BR 1$ ':GO PUT IT IN THE DATA TABLE 


024014 SOCTVL: .BLKB 14. 2 sRESERVE DATA TABLE 


ee = CS ee 
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ERROR MESSAGES 


. SBTTL wea MESSAGES 


' 
4104 02403 116 117 124 EM: SCIZ 2NOT THE CORRECT TRAP CONDITION THROUGH ERRVEC (#004)? 
4105 02411 125 116 105 EM2: -ASCIZ 2UNEXPECTED CPU TRAP THROUGH ERR 5° C (#004)? 
02417 125 116 105 EMS: »ASCIZ 2UNEXPECTED MEMORY MANAGEMENT T MEMORY MANAGEMENT STATUS REGISTERS? 
4107 024277 123 125 115 EMG: ASCIZ 2SUMMARY OF MAP REGISTERS THAT rime OUT ON R 
4108 02435 123 125 115 EMS: -ASCIZ 2?SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING. MAP REGISTERS? 
4109 024452 123 125 115 EM6: SCIZ ?SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 
| 4110 024554 123 125 115 EM7: -ASCIZ 2SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 
4111 024655 103 101 116 EM10: .ASCII ?CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF ?<CRLF> 
4112 024743 123 117 040 eASCIZ ?S0 JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION? 
4113 025027 123 125 115 EM11: .ASCIZ ?SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 
4114 025121 125 116 111 EM12 eASCIZ ?UNIBUS MAP IS RELOCATING WHEN NOT LED? 
4115 025173 103 101 116 ~EM13 eASCII] 2CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL?<CRLF> 
4116 025253 101 104 104 ASCII ZADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM?<CRLF > 
4117 025334 111 106 040 -ASCIZ 21F YOU DON'T LOOP ON THIS PROBLEM. 
4118 025377 123 125 115 €M14:  .ASCIZ SUMMARY GF UNIBUS ADDRESS a unt “WITH THE MAP RELOCATION DISABLED? 
4119 025502 115 101 111 EM15: .ASCIZ 2MAIN MEMORY TIMEOUT nea THE UNIBUS DID NOT OCCUR PROPERLY? 
4120 025575 122 105 114 £M16:  .ASCIZ RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 
4121 025673 116 117 040 EM17: .ASCIZ 2NO_UNIBUS MEMORY EXISTS? 
4122 025723 111 116 124 EM20:  .ASCIZ 2INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR? 
4123 026022 111 116 124 EM21: .ASCIZ ?INTERRUPT/ABORT TESTS R4& WAS OVERWRITTEN WITH 
4124 026100 111 116 124 EM22: .ASCIZ ?INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE a ABORT? 
4125 026166 114 115 101 EM23:  .ASCIZ ?LMA NOT LOADED PROPERLY? 
4126 026216 114 115 101 EM24: .ASCIZ ?LMA FORCE JUMPER BIT NOT ZERO? 
4127 026254 114 115 101 EM25: .ASCIZ ?LMA FORCE JUMPER BIT NOT SET? 
4128 026311 114 115 101 EM26: .ASCIZ ?LMA CONTROL BITS INCORRECT? 
4729 02634 106 117 122 EM27: .ASCIZ 2FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULT? 
4130 026444 113 111 120 EM30: .ASCIZ ?KIPARS NOT LOADED PROPERLY? 
4131 026477 124 110 105 EM201: .ASCIZ ?THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
4132 026553 124 110 105 EM202: .ASCIZ ?THE FOLLOWING ARE DUAL ee ee ERRORS IN "THE UNIBUS MAP? 
026646 124 110 105 EM203: .ASCIZ ?THE BIT Athy me THROUGH THE MAP REGISTERS FAILED? 
026727 125 116 1117 EM204: .ASCIZ ?UNIBUS DATA PATH COUNT PATTERN FAILURE? 
4135 026776 125 116 117 EM205: .ASCIZ ?UNIBUS ADDRESSING ERRORS MAP RELOCATION DISABLED? 
027 104 101 124 M206: .ASCIZ 2DATA PATTERN NOT CORRECT? 
4137 027111 122 105 106 EM207: .ASCIZ 2REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770200? 
4 027220 115 101 120 EM210: .ASCIZ 2MAP REGISTER(S) a> TEST DID NOT RESPOND IN DUAL MAPPING TEST? 
4139 027320 122 105 114 EM211: . ASCII] ?RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION?<CRLF> 
4140 027416 124 105 123 -ASCIZ 2TEST CODE BEING RUN OVER UNIBUS? 
4141 027456 115 101 117 EM212: .ASCI] 2MAIN MEMORY TIMEOUT OVER THE UNI BUS DID NOT OCCUR PROPERLY?<CRLF> 
4142 027551 124 105 123 -ASCIZ west CODE BEING RUN OVER UNIBUS? 
4143 027611 115 101 120 €M213: .ASCIZ 2MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 
4144 027702 115 101 120 EM214: .ASCIZ MAP REGISTER DISABLED WHEN DDwW SAYS IT SHOULD BE ENABLED? 


ee ees ee ee 


ae 
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CKKUADO 11/2 
TA HEADERS 
4145 .SBTTL DATA HEADERS 
4166 027773 105 103 BHT: -ASCIZ. 2RECEIVD EXPECTD TESTNO ERR PC? 
414 1 105 103 DH2:  cASCIZ 2RECEIVD TESTNO ERR PC? 
4148 0300611 124 101 ~DH3: «= ASCII. «-2STATUS AUTOI/D VIRTUAL ?<CRLF> 
4149 O30111 105 = 107 “ASCIZ REGISTR REGISTR ADDRESS TESTNO ERR PC? 
4150 030160 105 107 DH4: ASCII] 2REGADRS REGADRS?<CRLF> 
4131 030202 04 oe 112 CASCIZ ? "AND’’ —- WERRORS TESTNO ERR PC? 
415¢ 03083 12 10 107 DHS: ASCII] 2REGLOAD REGLOAD REGDUAL  REGDUAL?<CRLF> 
4133 030523 = 0404117 CASCIZ 2. "OR ‘AND ‘OR RORS TESTNO? 
4154 030612 11 101 120 ~DH6: ©=—-ASCIT 2MAPREG = MAPREG EXPEC TD EXPECTD RECEIVD RECEIVD?<CRLF> 
4155 0304676 040 042 83911 “ASCIZ 2 "OR" “AND’’ “OR = 'AND'S «OR = "AND" MERRORS TESTNO? 
4136 030601 124 «105 1g5 DHIQ: © -ASCIZ 3TESTNO. ERR PC _WmR32 
4157 050626 = 103. 150120 HIT: © -ASCIT PEXPECTD —EXPECTD RECEIVD = RECELYD?<CRLF> 
4158 030674 = 040 he 117 “ASCIZ 2 "OR AND’ "OR "AND'’ == MERRORS TESTNO? 
4159 030763 «= 103s 116 DH15: <ASCII 2CONDITN CONDITN?<CRLF> 
4160 031003 = 105 s«130—Ss«2120 CASCIZ EXPECTD RECEIVD TESTNO ERR PC? 
4161 03104 124 10515 DHS: SASCIZ 2TESTNO ERR PC LMAEXP  LMARCV? 
4162 03110 126 105 123 DH24:  <ASCIZ 2TESTNO ERR PC XP LMARCV? 
4163 03114 12 105 123 DH27: <:ASCIZ ?TESTNO PC CV KIPAR4? 
4164 031201 124 105 123 DH30: [ASCI2 2TESTNO ERR PC PRSEXP PRSRCV? 
4165 031260 122 105 107 DH201: [ASCIZ 2REGADRS TESTNO ERR PC? 
4166 031267 = 115. «= 101.«Ss«120:«DH202: ASCII 2MAPREG MAPREG — NON-ZER?<CRLF> 
4167 031323. 1242S 105-—s«1283 “ASCIZ 2TESTING DUALED _ CONTNTS TESTNO ERR PC? 
4168 031376 122 105 107 DH203: [ASCIZ 2REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC? 
4169 031457 105 «= 130»: 120:«~DH204: :ASCIZ EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC? 
4170 031530 101 1046 104 DH205: ‘ASCII ADDRESS  ADDRESS?<CRLF> 
4171 031552 = 105. s« 130s‘ 120 TASCIZ EXPECTD _RECEIVD TESTNO ERR PC? 
4172 031615 101 104 104 DH206: [ASCIZ ADDRESS EXPCTD RECVED TESTNO ERR PC? 
4173 031665 101 104 104 DH207: [ASCIZ 2ADDRUSED BITDIFF TESTNO ERR PC? 
4174 031726 124 105 123 DH210: ‘[ASCIZ ?TESTNO ERR PC MAPREGADR? 
4175 031760 103 117 122 DH211: [ASCII CORRECT  EXPECTD RECEIVD?<CRLF> 
4176 052012 = 101,104 104 ASCIZ ADDRESS DATA _ FROM UB TESTNO ERR PC? 
4177 03206 103 9117, S116 -«DH212: ~ZASCII = 2CONDITN CONDITN?<CRLF> 
4178 032103 = «105-s«130—Ss«120 “ASCIZ EXPECTD RECEIVD TESTNO ERR PC? 
124 105 123 DH213: ‘[ASCIZ ?TESTNO ERR PC REG NO DDWDAT DDWADR? 
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DATA TABLES 


4181 .SBTTL DATA TABLES 

4182 0 12 0013 001326 02 20 DT1: .WORD PCPUER,CPUEXP,$TESTN,BADPC,0 

418 ¢ 001 9200 001 Dre: “WORD PCPUER;S$TESTN,BADPC,0 

4184 0 001350 007 001354 DT3:  .WORD PMMRO ,PMMR2, STESTN,BADPC,0 

4185 032250 001 001 3 001320 DT4:  .WORD ADDROR,ADRAND,ERACNT, STESTN, SERRPC 0 

4186 032264 001 001 001246 DTS: | .WORD ADDROR.ADRAND.DATAOR.DATAND,ERRCNT.STESTN, 
4187 O32 2 001 001232 001254 DTé: § <.WORD ADDROR.ADRAND.PATTOR.PATANDDATAOR.,DATAND,ERRCNT ,$TESTN,O 
4188 03 326 02002 001114 172516 DT10:  .WORD $TESTN.SERRPC.MMR3,0 

4189 032334 001254 00125 001246 DT11: .WORD PATTOR,PATAND.DATAOR, DATAND,ERRCNT,S$TESTN,O 
4190 030352 001236 00123 001246 D114:  .WORD ADDROR.ADRAND.DATAOR.DATAND,ERRCNT .S$TESIN.O 
4191 032370 001326 001330 020020 D115: .WORD CPUEXP.PCPUER.STESTN PC; 

4198 032402 920020 001114 00576¢ DTg8: “WORD $TESTN.SERRPC.EADRES, EADRS2.0 

4193 032414 020020 001114 001162 DT24: .WORD $TESTN.SERRPC.S$REGI, , 

4194 032426 020020 001114 001174 DT26: .WORD $TESTN.SERRPC.$TMPO.SREG2 

4195 032440 020020 001114 001174 DTe?: “WORD  $TESTN,SERRPC.STMPO, 4.0 

4196 032452 020020 001114 001206 DT30: .WORD $TESTN.SERRPC.$TMP5S.KIPARS.O 

4197 032464 005762 020020 001114 DT201: .WORD ES. $TESTN,SERRPC,0 

4198 032474 005766 005762 001202 DT202: WORD EADRS2.EADRES,S$TMP3 STESTN, SERRPC.0 

4199 032510 005766 001174 001170 DT203: .WORD EADRS2.$TMPO,$REG4,$REG3,$TESTN, SERRPC,0 
4200 032526 0011746 001176 001164 DT204: WORD $TMPO,$TMP1,$REG2,$TESTN,SERRPC.0 

4201 032542 005762 005766 020020 DT205: -WORD EADRES,EADRS2,$TESTN, SERRPC,0 

4202 032554 0605762 001204 001206 DT206: .WORD EADRES.STMP4,$TMP5,$TESTN, SERRPC,9 

4203 032570 005762 001160 020020 DT207: WORD EADRES.$REGO,$TESTN, SERRPC,0 

4204 032602 020020 001114 005762 DT210: [WORD $TESTN.SERRPC,EADRES,0 

4205 032612 005762 001166 001164 DT211: .WORD EADRES.$REG3,$REG2,$TESTN, SERRPC,0 

4206 032626 001326 001330 020020 DT212: .WORD CPUEXP.PCPUER,$TESTN, SERRPC,0 . 

4207 032640 020020 001114 001174 DT213: cWORD $TESTN.SERRPC.$TMPO,$TMP1,$REG5S,0 









011 
MACRO M1113 26-OCT-81 11:08 PAGE toy 
UMPER MESSAGE 


3 
i 
E 
S 
_ 


I 


: 


SEQUENCE 133 





1 
T 


—s 

~ 

~m 

.> 

~ 
— 
“S 
= 


4 08 -SBTTL NON-DEFAULT UNIBUS MAP JUMPER MESSAGE 

4 032654 200 \¢3 111 JMPMSG: .ASCII <CRLF>?SIZE J ON UNIBUS MAP ARE NOT IN THEIR DEFAULT?<CRLF> 
4210 032741 1 ? 11 1s ASCII -. MAP REGISTERS BETWEEN THE LOWEST AND HIGHEST?<CRLF> 
4211 0 H 1 123 105 *ASCII 2USEABLE, AND ABOVE THE UNIBUS END NUMBER WILL BE TESTED. ?<CRLF> 
& \¢ 0331 ¢ 125 116 111 -ASCII 2UNIBUS MEMORY WILL BE ASSUMED TO BETWEEN UNIBUS BEGIN?<CRLF> 
421 83 1 101 116 104 ~ASCII 2AND END REGISTER NUMBERS IF BIT <5> IS SET IN THE SWR,?<CRLF> 
4214 0 2 105 116 101 -ASCII 2ENABLING TEST #23 TO EXECUTE. ?<CRLF><CRLF> 

4215 033341 040 040 114 ASCII ? LOWEST HIGEST UNIBUS UNIBUS?<CRLF> 

4216 033402 040 040 125 -ASCII ? USABLE USABLE BEGIN END?<CRLF > 

4217 033441 040 040 040 -ASCIZ 2? = REG# REG # REG # REG # TEST #?<CRLF> 
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ABL 
ABASE = 000000 BITO = 000001 DDISP = 177570 DT21 032626 FJBIT = 000100 
ACDW1 = 000000 BITOO = 01 DFMSG 11 DT 18 $3620 FLAG 001324 
AC = 000000 BITO] = 2 DF1 03351 DT23 032402 FLOATR 0057 g 
CPUOP= ois = 000004 DF11 b 54 DT24 b 414 THRU 00353 
DROR 1 B1T05 = 000010 DF14 33551 DT26 32426 1 00704 
ADDWO = 17777 BIT04 = 900020 DF 201 Oas293 4 032440 9070+ 
ADDW1 = 177777 BITOS = 000040 DF 204 bese 1 DT b3 234 HIADRS= 177742 
000000 BITS = 000100 DF210 03 228 DT36 32452 GEST oot 
ADDW11= 000000 B1T07 = 000200 DF 23 03355 DT4 032250 HITMIS= 177752 
ADDW12= 000000 BIT08 = 000400 DF4 033520 DTS B3S¢6s = 
ADDW13= 000000 BITO9 = 001000 DFS Oa eSe DT6 032 3 IBSAVE 020554 
ADDW14= 000000 BIT! = 000002 DF6 033533 EADRES 00576 IOTVEC= 
ADDW15= 000000 B1T10 = 002000 DH1 027773 EADRS2 005766 ooseen 
ADDW2 = 000000 BIT11 = 004000 DH10 030601 EMTVEC= 000030 KDPARO= 172 
ADDWS = 000000 BIT12 = 010000 DH11 030626 EM1 024032 KDPARI= 172362 
ADDW4 = 000000 B1T13 = 020000 DH15 030763 EM10 024655 KDPAR2= 172364 
ADDWS = 000000 BIT14 = 0400 DH2 030032 EM11 025027 KDPARS= 172366 
AD = 000000 B1T15 = 100000 DH201 031240 EM12 025121 KDPAR4= 172370 
ADDW7 = 000000 BIT2 = 000 DH20 O31 69! EM13 025173 KDPARS= 172372 
ADDW8 = 000000 BITS = 000010 DH20. 031376 EM14 025377 KDPAR6= 172374 
= 000000 BIT4 = 000020 DH204 031457 EM15 063208 KDPAR7= 172376 
ADEVCT= 000000 BITS = 000040 DH205 = 031530 EM16 02557 KDPDRO= 172320 
= 000000 BIT6 = 000100 DH206 8031615 EM17 025673 KDPDR1= 172322 
001232 BIT? = 000200 DH207 =: 031665 EM2 024117 KDPDR2= 172324 
ADREXT 003674 BIT8 = 000400 DH210 8031726 M20 025723 KDPDR35= 172326 
= 000000 BIT9 = 001000 DH211 031760 EM201 026477 KDPDR4= 172330 
= 000000 BPTVEC= 000014 DH212 032063 EM202 026553 KDPDR5= 172332 
AFATAL= 000000 BUPWIN 001276 DH213 2142 EM203 026646 KDPDR6= 172334 
R1= 000000 CACHE = 177746 3 031042 EM204 026727 KDPDR7= 172336 
AMADR2= 000000 CACHVE= 000114 DHe4 031103 EM205 026776 KERSTK= 001100 
3= 000000 CASHSR 005324 DH27 031142 EM206 027060 KIPARO= 172340 
AMADR4= 000000 CASH1 005460 DH3 030061 EM207 9027111 KIPAR1= Ht re 
AMAMS1= 000000 CASH2. 00546 DH30 031201 EM21 026022 KIPAR2= 172344 
AMAMS2= 000000 CHARCT 005756 H4 030160 EM210 Oe 655 KIPAR 1es3e6 
AMAMS3= 000000 CHK 005076 DH5 030255 EM211 027320 KIPAR4= 172350 
AMAMS4= 000000 CHKPAT 005576 H6 030412 EM21 027456 KIPARS= 172352 
AMSGAD= 000000 CL O67 DISPLA 001140 EM21 027611 KIPAR6= 172354 
GLG= 000000 CMPE = 177744 DISPRE 000174 cath 027702 KIPAR7= 172356 
AMSGTY= 000000 CNTR 0013, DSABLD 005230 EM § 026100 KIPDRO= 175308 
AMTYP1= 000000 CONTRL= 177746 SWR = 177570 EM2 026166 KIPDRI= 172302 
AMTYP2= 000000 CPFLAG 0032 DTMS 005736 EM24 026216 KIPDR2= 172304 
AMTYP3= 000000 CPSAVE 020552 DIMSG 005742 EM25 850434 KIPDR35= 172306 
AMTYP4= 000000 R 0032 DT1 032212 EM26 026311 KIPDR4= 172310 
APASS = 000000 CPUERR= 177766 DT10 035392 one! 026344 KIPDRS= 172312 
10R= 000000 CPUEXP 001326 DT11 032334 E 024171 KIPDR6= 172314 
APTCSU= 000040 C G 0061 DT14 03235 EM30 026444 KIPDR7=_ 172316 
TENV= 000001 CPUTYP 007136 DT15 03237 EM4 B5e$e5 SP =%000006 
APTSIZ= 000200 CR = 0000 Dts 032224 EMS 024357 LF = 000012 
APTSPO= 0001 CRLF_ = 000200 DT201 032464 ome 024452 KS_ = 177546 
WREG= 000000 CTRAPS= 000116 44 032474 EM 024554 LKVEC = 000100 
ATESTN= 000000 CTRAPV= 000114 DT20 032510 E Bn 3856 MAH 001304 
IT = DATA 001 DT204 635278 ERRCNT 1520 LMAHI = 177736 
AU = DATAND 051528 DT205 032542 = 104000 LMAL oor te 
AVECT1= 000000 DATAOR 001246 DT 6 032554 ERRVEC= 000004 LMAL 177734 
AVECT2= 000000 DATEXT 003624 DT20 032570 ERTYPE 002026 LOADRS= 177740 
BADCPU 5 DATO = 100000 DT210 635055 200 Bn ese8 LOEFLG 004312 
BADPC 001340 DATOB = 140000 D211 03261 ExTOUT 005760 oop 010606 
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LOWEST 001256 nut ies 170250 PATEXT 003650 SDPAR7= 172276 SW13 = 020000 
LREGL 001 MAPL13= 170254 PATRNS 006100 SDPDRO= 17 $3 SW14 = 040000 
LREGU 130 MAPL14= 170260 PATTOR 0n483e SDPDRI= 172222 SW15 = 100000 
MAINT = 17775 MAPL15= 170264 PCONTR 001334 SDPDR2= 17 § 4 Si, = 
MAPADD 004106 saad a 170270 PCPUE 901338 SDPDR35= 172226 Sw = 10 
MAPHO = 1100s MAPL17= 170274 PIRQ = 17777 SDPDR4= 172230 SW4 = = 000020 
= 1702 MAPL2 = 170210 PIRQVE= poet? SDPDR5= 176s3e SWS == 000040 
MAPHO1= 1702 MAPL20= 170500 PMAINT 001336 SDPDR6= 172234 s = 000100 
MAPHO2= 17021 MAPL21= 170304 PMBE CD po eage SDPDR7= 172236 SW = 000200 
MAPHOS= 170216 say 170310 PMBECF 002536 SIPARO= 17gse8 SW8 == 000400 
MAPHO4= 170222 MAPL25= 170314 PMBECH 002476 SIPARI= 172242 Sw9_ == 001 
MAPHOS= 17098 MAPL24= 170320 PMBE CM tet: SIPAR2= 176see SYSTID= 177764 
1702 MAPL25= 170324 PMBECW 00243 SIPARS= 172246 TRIT = 20 
MAPHO7= 170236 MAPL26= 170330 PMMRO 001350 SIPAR4= 172250 TBITO = 104415 
MAPH1 = 170206 MAPL27= 170334 PMMRI 001352 SIPARS= 172252 TBIT 002726 
MAPH10= 170242 MAPL3 = 170214 PMMR2 001354 SIPAR6= 172254 TBITR = 104414 
MAPH11= 170246 MAPL30= 170340 PPARER 001332 SIPAR7= 172256 TBITRE 002754 
MAPH12= 170252 MAPL31= 170344 PRETST 005166 SIPDRO= 172200 TBITVE= 000014 
MAPH135= 170256 MAPL32= 170350 0 = p44 SIPDRI= 172202 CPMRA 004416 
MAPH14= 170262 MAPL33= 170354 PR1 = 000040 SIPDR2= 172204 TIMEOU 003030 
MAPH15= 170266 MAPL34= 170360 PR2 = 000700 SIPDR35= 172206 TIMOUT= 000020 
MAPH16= 170272 MAPL35= 170364 PRS = 000140 SIPDR4= 172210 TKVEC = 000060 
MAPH17= 170276 MAPL36= 170370 PR4 = 000200 SIPDRS= 172212 TOFLAG 003032 
MAPH2 = 170212 MAPL37= 170374 PRS = 000240 SIPDR6= 172214 TOMSG 006257 
MAPH20= 170302 MAPL4 = 170220 PR6 = 000300 SIPDR7= Wes'g TPVEC = 
MAPH21= 170306 MAPLS = 170224 PR7 = 000340 SIZEHI= 177762 RAPVE= 34 
MAPH22= 170312 MAPL6 = 170230 PS = 177776 SIZEJO 012744 TRIVEC= 14 
MAPH235= 170316 MAPL7? = 170234 PSW = = 177776 JZEJ1 013154 TSTLOC 003474 
MAPH24= 170320 MASK1 005774 PTMP2 005000 SIZEJ2 013402 TST1 010676 
MAPH25= 170326 MASK2 005776 SG 023646 SIZELO= 177760 TST10 014616 
MAPH26= 170332 MEMERR= 177744 PWRVEC= 000024 SPECST 006000 TST11 =. 015072 
MAPH27= 170336 MFPT = 000007 RDCHR = 104406 SRO = 177572 TST1 015140 
MAPHS = 170216 MMFLAG 003374 RDLIN = 104407 SR1 = = 177574 TST1 015174 
MAPH3S0= 170342 1270 RDOCT = 10441 SR = 177576 TST14 015334 
MAPH31= 170346 MARLOW 001266 RELC22 011672 SR = 172516 TST15 015362 
MAPH3S2= 170352 MMRO = 177572 RESREG= 104412 SSP_ =%000006 TST16 §=©015420 
MAPH33= 170356 MARI = 177574 RESVEC= 000010 STACK = 001100 TST17 = 015450 
MAPH34= 170362 MMR2 = 177576 RETRY 001360 START 010000 TST2 011122 
MAPH35= 170366 MARS = 172516 RSIZE 001356 STKLMT= 177774 TST20 015610 
MAPH36= 170372 MMTOTM 01761 R =%000000 SUPSTK= 000700 TST21 015744 
MAPH37= 170376 MMT 00337 R11 =%000001 SWR 001136 TST22 016144 
MAPH4 = 170222 MMVEC = R12 =%00000 SWREG Boon OF TST25 016212 
MAPHS = 170226 MRQUES 006 R13 =%00000 SwO = 000001 TST24 016420 
MAPH6 = 170232 NEWSWR 00615 R14 =%000004 SwOO = 000001 TST25 016464 
MAPH? = 170236 NEXMEM= 000040 R15___ =%000005 SWwO1 = 000002 TST26 016626 
MAPLO = 170200 NEXT 292996 R3STAK 004314 Suge = 000004 tate? 016762 
MAPLOO= 170200 NOMORE 00641 R6 =%000006 SwO5 = 000010 TST 011444 
MAPLO1= 170204 NOMSG 64 =%000007 Sw04 = 000020 TST3O0. =. 017110 
MAPLO2= 170210 FK 001316 SAVREG= 104411 SwOS = 46d TST31 017336 
MAPLO35= 170214 NXTTST 001362 SCOPE = 000004 SWw06 = 000100 TST32 = 021450 
MAPLO4= 170220 OLDPC 001342 DPARO= 172260 SwO7? = 000200 TST4 011762 
MAPLOS= 170224 OLDPS 01344 SDPAR1= 172262 SwO8 = ‘set TSTS 01 o36 
MAPLO06= 230 OLDPSW 001346 SDPAR2= 172264 Sw09 = 001000 TST 01263 
MAPLO7= 170234 PADRSH 001230 SDPAR3S= 176666 Swi = ies TST 013712 
MAPL1 = 170204 PADRSL 001226 SDPAR4= 172270 SWw10 = 00200 TYPDAT= 002244 
MAPL10= 170240 PATAND 001252 SDPARS= 172272 SW11 = 004000 TYPDS = 104405 
MAPL11= 170244 PATCH 007140 SDPAR6= 172274 SWw12 = 010000 = 104401 





H 11 
CKKUADO 11/24/44 UBI MAP MACRO M1113 26-OCT-81 11:08 PAGE 108-3 SEQUENCE 137 
SYMBOL TABLE 


TYPOC = 104402 USESTK= 000600 DOA 021706 R 020002 SSVPC = 204 
TYPON = 104404 USP. = SDTBL 023050 SMFLG 1444 $SWR = 177400 
TYPOS = 104403 YESMSG 01354 END 021676 Ew eqh SSWREG 020036 
TYPVAD 00254 SAPTHD 020 SENDCT 3 1318 GAD 0030 $s = 000340 
00265 SATYC 021226 ENUL 175 SMSGLG 0032 $TBIT 021750 
UBMAV Bpels $ATY] 0 1$36 SENV 020034 SMSGTY 020014 STESTN 020020 
UBME 0061 SATYS 021210 SENVM § 020035 8 3350 STIMES 001212 
UBMHI 001264 SATY4 petses SEOP 8 1450 SMTYP1 0045 $TKB 001144 
UBMLOW 001262 SAUTOB 001132 SEOPC 1510 SMTYP2 020051 $TKS 001142 
UBMSU Oi 76s8 SBASE 020070 SERFLG 001101 SMTYPS 020055 STMPO 8 001174 
UBM246L 001310 SBDADR 001120 E 001113 SMTYP4 020061 STMP1 001176 
UBM24P got eis SBDDAT 007124 ERROR 020556 SMXCNT b59228 STMP 001200 
UBM24U 001312 ELL 001216 SERRPC 001114 SNULL 01152 STMP. 001202 
UBRHI 001274 $CDW1 020074 SERR™B 001366 SNWTST= 000001 STMP4 001204 
UBRLOW 001272 $CDW2 020076 SERTTL 001110 SOCNT 022640 STMPS 001206 
UDPARO= 177660 SCHARC 022412 SESCAP 001214 SOCTVL 024014 STMP6 001210 
UDPAR1= 177662 SCLR.T 021666 SETABL 020034 E 022642 STN = 000032 
UDPAR2= 177664 SCMTAG 001100 SETEND 020140 SOVER 020534 TPB 001150 
UDPAR3S= 177666 $CM1 = 000006 SFATAL 020016 SS. 020022 STPFLG 001155 
UDPARS= 177670 $CM2 = 000014 SFFLG 021446 SPASTM 020006 TPS 001146 
UDPARS= 177672 SCMS = 000006 SFILLC 001154 023622 STRAP 023372 
UDPAR6= 177674 $CM4 = 000007 SFILLS 001153 SPWRDN 023462 STRAP2 023414 
UDPAR7= 177676 SCNTLG 023343 SGDADR 001116 SPWRMG 023616 STRP = 000016 
RO= 177620 SCNTLU 336 SGDDAT 001122 SPWRUP 023534 STRPAD 023426 
UDPDR1= 177622 $C 20042 $GET42 021650 SQUES 001222 STSTM 020004 
UDPDR2= 177624 SCRLF 01223 H = 000000 SRDCHR 023070 STSTNM 0011 
UDPDR35= 177626 SDBLK 023060 SHIBTS 020000 SRDLIN 023220 STTYIN 023326 
= 177630 $DB20 023712 S$HIOCT 005734 $RDOCT 005626 PDS 022644 
= 177632 $DDWO 020100 SICNT 001102 $RDSZ = 000010 $TYPE 022052 
UDPDR6= 1 $DDW1 020102 023640 SREGAD 001156 STYPEC 0222 
= 177636 SDDW10 020124 SINTAG 001133 SREGO 001160 STYPEX 022414 
UIPARO= 177640 $DDW11 020126 SITEMB 001112 $REG] 001162 STYPOC 022442 
UIPARI= 177642 $DDW12 020130 $L 001224 $SREG 001164 STYPON 022456 
UIPAR2= 177644 $DDW135 020132 SLFLG 021445 SREG 001166 STYPOS 022416 
UIPAR3= 1 S$DDW14 020134 021744 $REG4 001170 SUNIT 020026 
UIPAR4= 177650 $DDW15 020136 SLPADR 001104 $REGS 001172 SUNITM 020010 
UIPARS= 177652 SDDW2 020104 SLPERR 001106 SRESRE 022014 SUSWR 020040 
UIPAR6= 177654 $DDWS 020106 020046 T 021746 SVECT1 020064 
UIPAR7= 177656 SDDW4 20110 SMADR2 020052 T 021742 SVECT2 020066 
UIPDRO= 177 $DDWS 020112 SMADRS 020056 SSAVRE 851276 SXOFF = 000025 
UIPDR1= 177602 $DD 020114 SMADR4 020062 SSAVR6 023644 $XON = 1 
UIPDR2= 177604 SDDW7 020116 SMAIL. 020014 S$SCOPE 020140 SXTSTR 020244 
UIPDR3= 177 $DDW8 20120 SMAMS1 020044 S$SETUP= 000037 $$GET4= 000001 
UIPDR4= 177610 SDDW9 020122 SMAMS 850020 SSWR 990178 SOFILL 022641 
UIPDRS= 177612 SDEVCT 020024 SMAMSS 020054 SSTUP = 177777 . = 
UIPDR6= 177614 SDEVM 020072 SMAMS4 020060 $SVLAD 020500 SY = 002026 


UIPDR7= 177616 
- ABS. 033601 000 
000000 1 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 56416 WORDS ( 221 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:28:05 
CKKUAD .BIN, CKKUAD/CR/=SP/NL : TOC=CKKUAD .MLB/ML , CKKUAD.P11 
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CKKUAD CREATED BY MACRO ON 26-OCT-81 AT weeee PAGE 1 


EQUENCE 138 
SYMBOL CROSS REFERENCE CREF 01 
SY VALUE REFERENCES 
SE = 000000 91-407 91-407 
ACDW] = 000000 91-407 91-407 
ACDW2 = 000000 91-407 91-407 
ACPUOP = 000000 91-407 91-407 
ADDROR 1628 #21-149 #41=2225 = *41-2240 = #924074 = 92-4074 106-4185 106-4186 106-4187 106-4190 
ADDWO 8 = 177777 #90-4068 91-4072 91-4072 
ADDW1 == 177777 #90-4069 91-4072 91-4072 
ADDWI0 == 000000 91-4072 91-4072 
ADDW11 = 000000 91-407 91-407 
ADDWi2 = 000000 91-407 91-407 
ADDW13 = 000000 91-4072 91-407 
ADDW14 = 000000 91-4072 91-407 
ADDW15 = 000000 91-4072 91-4072 
ADDW2 = 000000 91-4072 91-407 
ADDWS = 000000 91-4072 91-4072 
ADDW4 = 91-4072 91-4072 
ADDWS = 000000 91-4072 91-4072 
DW6 = 000000 91-4072 91-4072 
ADDW7 = 91-4072 91-4072 
= 000000 91-4072 91-4072 
= 000000 91-4072 91-4072 
ADEVCT = 91-4072 91-4072 
EVM = 000000 91-4072 91-4072 
ADRAND 001232 #21-1493 = *41-2227 = 41-2242 = 92-4074 = #924074 106-4185 106-4186 106-4187 106-4190 
ADREXT 003674 35-2054 #41-2217 56-2825 57-2894 59-2972 68-3329 68-3371 69-3442 
AENV = 000000 91-4072 91-4072 
AENVM = 000000 91-4072 91-4072 
AFATAL = 91-4072 91-4072 
AMADR1 = 0 91-4072 91-4072 
AMADR2 = 000000 91-4072 91-4072 
AMADR3 = 000000 91-4072 91-4072 
AMADR4 = 91-4072 91-4072 
AMAMS1 = 000000 91-4072 91-4072 
AMAMS2 = 000000 91-4072 91-4072 
AMAMSS = 0 91-4072 91~4072 
AMAMS4 = 000000 91-4072 91-4072 
AMSGAD = 000000 91-4072 91-4072 
SGLG = 91-4072 91-4072 
AMSGTY = 000000 91-4072 91-4072 
AMTYP1 = 000000 91-4072 91-4072 
AMTYP2 = 000000 91-4072 91-4072 
AMTYPS = 91-4072 91-4072 
AMTYP4 = 000000 91-4072 91-4072 
APASS = 000000 91-4072 91-4072 
I = 000000 91-4072 
APTCSU = 000040 #94-4078 97-4084 
APTENV = 000001 93-4076 94-4078  #94-4078 97-4084 
APTSIZ = 000200 #94-4078 
APTSPO = 000100 94-4078  #94-4078 97-4084 
ASWREG = 000000 91-4072 91-4072 
ATESTN = 000000 91-4072 91-4072 
IT = 000000 91-4072 91-4072 


















CKKUAD 


= 000000 


PU 006605 
BADPC 001340 


BITO = 000001 
1T00 == _- 000001 
BITO1 = 000002 
BITO2 = 000004 
BITOS = 000010 
1704 = 000020 
BITOS = 000040 
BIT06 = 000100 
BITO? = 000200 
1T08 = 000400 
BITO9 = 001000 
BIT = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT1S = 020000 
BIT14 = 040000 
BITiS =1 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 0004 
BIT9 = 001000 
BPTVEC = 000014 
BUPWIN 001276 
CACHE = 177746 
CACHVE = 11 
CASHSR 005324 
CASH1 0054 
CASH2 005467 
CHARCT 00575 
CHKLMA 005076 
CHKPAT 005576 
CLRMAP 002772 
CMPE = 177744 
CNTR 001322 
CONTRL = 177746 
CPFLAG 00322 
CPSAVE 020552 
CPUER 003222 
CPUERR = 177766 


CREATED BY 
SYMBOL CROSS REFERENCE 
MBOL VAL 


#21-1493 


MACRO ON 26-OCT-81 AT 11:20 PAGE § 
wane 9 


93-4076 
42-2281 


50-2486 


45-2401 


#17-1486 
34-2008 
78-3687 
56-2831 

#65-3215 

*50-2485 
50-2538 
77-3648 

*77-3646 

*77-3647 


42-2278 


*50-2507 


ms ht 


33-5036 





50-2538 
83-3828 


32-1974 
63-3124 


61-3057 
68-3364 
50-2486 
*77-3649 
78-3698 
*78-3696 
*78-3697 


44-2358 


*50-2531 


*36-2099 


35-2041 





v01 


106-4182 
58-2933 
92-4074 


50-2506 
57-2906 
46-2426 
95-4080 
84-3854 


58-2934 
69-3409 


68-3346 
68-3392 


*50-2499 
*78-3706 


#46-2422 
68-3281 


*36-2104 
#924074 


36-2088 
35-2050 





106-4183 
2-3087 
92-4074 


on 


92-4074 
59-2985 


59-2954 


84-3859 


70-3470 


69-3453 


*50-2502 


68-3323 


#54-2737 
*93-4076 


"36-3103 
36-2090 





106-4184 


63-3125 
93-4076 


92-4074 


68-3317 


85-3881 


72-3507 


81-3800 


*50-2506 


68-3342 


*93-4076 
93-4076 


#54-2740 
36-2094 


J 


79-3722 
93-4076 


93-4076 


68-3336 


92-4074 


87-3951 


83-3841 


50-2510 


68-3351 


*93-4076 
36-2103 


79-3733 

73-3523 89-4049 
84-3868 85-3894 
*50-2521 +*50-2532 
#44-2342 44-2347 
















CKKUAD 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE ve V7 
#44-2350 * 


44-2352 
*59-2987 259-2989 
*62-3098  *63-3134 
*65-3212  %68-3309 
CPUMSG 00617: #53-2617 *54-2689 
CPUTY 007136 5-2033 5-2046 
CR = 00001 #17-1486 97-4084 
CRLF = 000200 #17-1486 52-2614 
53-2622 53-2623 
104-4139 104-4141 
105-4170 105-4175 
107-4214 107-4214 
CTRAPS = 000116 #16-1465 50-2493 
CTRAPV = 000114 #16-1464 50-2492 
DATA 001364 #21-1493 44-2343 
DATAND 001242 #21-1493 = 39-2184 
DATAOR 001246 #21-1493 = 39-2182 
DATEXT 003624 #39-2182 56-2821 
DATO = 100000 #84~-3851 84-3853 
DATOB = 140000 #85-3878 85-3885 
DDISP = 177570 #17-1486 21-1493 
DFMSG 006116 52-259 #52-2613 
DF1 033513 22-1498 22-1504 
24-1605 24-1611 
#108-4219 
DF11 033543 23-1552 #108-4223 
DF14 033551 23-1573 26-1681 
DF 201 033563 26-1655 26-1668 
F204 033571 26-1674 #108-4227 
DF 210 033576 26-1699 #108-4228 
DF 23 033557 1617 = #108-4225 
DF4 033520 22-1518 #108-4220 
DFS 033525 22-1525 23-1587 
DF6 033533 22-1532 23-1538 
DH1 027773 22-1496 = #105-414 
DH10 03060 23-1543 3-155 
DH11 030626 23-1549 3-157 
DH15 030763 23-1577 =#105-415 
DH2 030032 22-150 4105-4147 
DH201 031240 26-165 #105-4165 
DH202 031267 26-1659 #105-4166 
DH203 031376 26-1666 #105-4168 
DH204 031457 26-1672 3 =9#105-4169 
DH205 31530 26-1678 #105-4170 
206 031615 26-1685 #105-417 
DH207 31665 26-1691 #105-417 
DH210 031726 26-1697 #105-4174 
DH211 031760 7-1703 27-1711 
DH212 032063 #105-4177 
DH213 032142 27-1718 27-1724 
DH23 031042 24-1615 #105-416 
DH24 031103 24-1621 24-1627 
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PAGE 3 
SEQUENCE 140 
CREF 01 
#54-2733 *59=2959 
#60-3014 60-3501 
63-313 63-314 
*68-3311 %89-4053 
54-2690 +*54-2695 
36-2092 #53-2627 
97-4084 
22-2616 53-2617 
532-2625 3-2626 
105-4148 105-4150 
105-4177 107-4209 
107-4215 107-4216 
*#50-2495 0-2536 
#50=2494 250-2535 
#44-2378 244-238 
*56-2858 92-4074 
56-285 #92-407 
57-2898 61-304 
22-1511 23-1545 
24-1623 24-1629 
#108-4224 
26-1687 26-1693 
#108-4221 
26-1662 4108-4222 
23-1564 24-1590 
23-1584 #105-4157 
4105-4175 
#105-4179 
24-1633 #105-4162 


K 11 


*20-Soeq 


4-2696 
#54-2681 
53-2617 


107-4217 


#44-2386 
106-4186 
106-418 
68-3332 


oa 


23-1 


558 
24-1635 


27-1706 


24-1596 


#59=2964 


106-4182 
*54-2682 
53-2618 


106-4187 
69-3445 
23-1566 
24-1641 


27-1714 


24-1603 


#59=2966 

*60-3041 

#64-3179 
106-4191 


54-2692 


11 
105-4157 
107-4211 


106-4189 
106-4189 


#108-4226 


24-1609 


#59=2974 


55-2752 
53-2620 
104-411 


04 5 
105-4159 
107-4212 


106-4190 
106-4190 


24-1592 
27-1720 


#105-4156 


#59-2976 
*62-3095 
*65-3209 


107-421 


24-1598 
27-1726 
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ame ge 


SYMBO. CROSS REFERENCE v01 
SYMBOL VALUE REFERENCES 
~ 031142 24-1639 #105-4163 
DH 030061 22-1508 #105-4148 
DH30 031201 25-1644 #105-4164 
DH4 030160 22-1515 105-4150 
DHS 030255 22-1522 = # 105-4152 
DH6 030412 22-1529 23-1535 = # 105-4154 
DISPLA 001140 #21-1493 47-2464 92-4074 93-4076 
DISPRE 000174 #18-1489 
DSABLD 005230 #482456 63-3138 64-3180 65-3204 
DSWR = 177570 #17-1486 21-1493 
DTMS 005736 #52-2594 66-322 
DTMSG 005742 2594 #52-2595 
DT1 32212 22-1497 #106-4182 
DT10 032324 23-1544 23-1557 23-1565 24-1591 24-1597 24-1604 24-1610 #106-4188 
DT11 032334 23-1551 #106-4189 
DT14 032352 23-1572 23-1586 #106-4190 
DT15 032370 23-1579 = # 106-4191 
DT 032224 22-1503 4106-4183 
DT201 64 26-1654 #106-4197 
DT202 032474 26-1661 #106-4198 
DT203 032510 26-1667 #106-4199 
DT204 032526 26-1673 #106-4200 
DT205 032542 26-1680 #106-4201 
032554 26-1686 #106-4202 
DT207 032570 26-1692 #106-4203 
DT210 032602 26-1698 #106-4204 
DT211 032612 27-1705 27-1713 = #106-4205 
DT212 032626 #106-4206 
DT213 032640 27-1719 27-1725. = #106-4207 
DT23 032402 24-1616 #106-4192 
DT24 032414 24-1622 24-1628 #106-4193 
DT26 032426 24-1634 #106-4194 
DT27 032440 24-1640 #106-4195 
DT3 032234 22-1510 #106-4184 
DT30 032452 25-1645 #106-4196 
DT4 032250 22-1517 = =#106-4185 
DTS 032264 $5-126¢ #106-4186 
032302 22-1531 23-1537 106-4187 
EADRES 005762 *41-2232 %41-2233 41-2244 = 41-2246 = #41-2247 = #42-2289 = 842-2290) )=— 844-2368 = # 44-2369 
#52-2598 59-2984 +%79-3724 79-3725 79-3735 88-4022 92-4074 106-4192 106-4197 
106-4198 106-4201 106-4202 106-4203 106-4204 a 
EADRS2 005766 ss mt i ti + *69-3446 = *69-3447 = # 79-3740 3=— 79-3741 = #92 -4074 106-4192 106-4198 
EMTVEC = 000030 #17-1486 54-2652 54-2652 
EM1 024032 22-1495 = 104-4104 
Em10 024655 23-1541 =. #1044111 
EM11 025027 23-1548 4104-4113 
EM12 025121 23-1555 = #104-4114 
EM13 025173 23-1561 =. #104-4115 
EM14 025377 23-1569 #104-4118 
EM15 025502 23-1576 = # 104-4119 
EM16 025575 23-1583 #104-4120 


CKKUAD 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
—EM17 025673 
EM2 024117 
EM20 025723 
—EM201 026477 
EM202 026553 
EM2035 026646 
EM204 026727 
EM205 026776 
EM206 027060 
—EM207 027111 
EM21 26022 
—EM210 027220 
EM211 027320 
EM212 27456 
EM213 027611 
EM214 27702 
EM22 026100 
EM23 026166 
EM24 026216 
EM25 026254 
EM26 026311 
EM27 02634 
—EM3 024171 
—M30 026444 
EM, 24277 
EMS 024357 
EM6 024452 
EM7 024554 
ENABLD 05266 
ERRCNT 001320 
ERROR = 104000 
ERRVEC = 0000 
ERTYPE 002026 
ER200 001666 
EXTOUT 005760 
FJBIT = 100 
FLAG 001324 
FLOATR 005772 
FT THRU 003532 
GMRMD 1 007041 
GMRMOD 007044 
GNS = seeker 


CREATED BY 


Ne Moon OO 


POPQHRINININININININ NINN 
WTSI UIOER UIC OO AAO 


WRN FS OWWNN ON — 
FO SUNDA OL Own 


~ 

Ww 
4 

_ 


#49~2471 
#21-1493 
55-278 


8-148 
101-4092 


mm 
wn 


MACRO ON 26-OCT-81 AT 11:20 E 5 
venmecy hs 


29-1803 
80-3759 


*38-2152 
*63-3130 


101-409 
10 


64-3174 


85-3893 
#542732 


29-1806 
80-3762 
#38-2157 
55-2766 
95-4080 


101-4092 
101-4092 


v01 


65-3213 


*55-2751 


81-3774 
*38-2159 
55-2767 
95-4080 


101-4092 
101-4092 


M11 


*36-2102 
*56-2842 
*68 8 


*55-2784 


81-3775 
48-2460 


*55-2754 
sme 


80-3763 
92-4074 


81-3778 
49-2475 


55-2756 


81-3779 
*92-4074 


82-3811 
#52-2600 


101-4092 
101-409 
101-409 


*55-2775 
*57=-2915 
87-3963 


81-3799 
*92-4074 


82-3812 


101-4092 
101-4092 
101-4095 


55-2780 
61-3062 
*89-4045 


56-2830 


82-3816 
*92-4074 


82-3815 


101-4092 
101-4092 
101-4094 


—~--4 
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QUENCE 143 

SYMBOL CROSS REFERENCE CREF v01 

SYMBOL VALUE REFERENCES 
101-4094 101-4095 101-4095 

HIADRS = 177742 A Lat by 

HIGEST 001260 #21-149 *64-3164 64-3185 64-3186 65-3196 68-3359 68-3385 81-3782 87-3956 

HITMIS = 177752 #17-1486 

HT = 000011 #17-1486 97-4084 97-4084 

IBSAVE 020554 3-4076 93-4076 93-4076 93-4076 +*93-4076 93-4076 93-4076 93-4076 93-4076 

1OTVEC = 000020 #17-1486 54-2652 54-2652 

JMPMSG 032654 66-3223 #107-4209 

KDPARO = 172360 #17-1486 

KDPAR1 = 172362 #17-1486 ° 

KDPAR2 = 172364 #17-1486 

KDPARS = 172366 #17-1486 

KDPAR4 = 172370 #17-1486 

KDPARS = 172372 #17-1486 

KDPAR6 = 172374 #17-1486 

KDPAR7 = 172376 #17-1486 

KDPDRO = 172320 #17-1486 

KDPDR1 = 172322 #17-1486 

KDPDR2 = 172324 #17-1486 

KDPDRS = 172326 #17-1486 

KDPDR4 = 172330 #17-1486 

KDPDRS = 172332 #17-1486 

KDPDR6 == 172334 #17-1486 

KDPDR7 = 172336 #17-1486 

KERSTK = 00110 #17-1486 é 

KIPARO = 172340 #17-1486 30-1919 58-2926 *73-3552 = 77-3633 = *79-3732 = * 87-3967 

KIPAR1 = 172342 #17-1486 = 73-3550) 3=— 77-3634 «= *8 7- 3968 

KIPAR2 = 172344 #17-1486 69-3444 79-3729 = 79-3730 3= 79-3742 = 79-3748 83-3824 83-3825 +83-3843 
84-3852 84-3853 +*84-3870 85-3879 +*85-3880  +*85-3896 

KIPAR3 = 172346 #17-1486 45-2398 45-2399 45-2404 54-2716 = 54-2717 3=— #54-2722 54-2723 rm fT: 

KIPAR4 = 172350 #17-1486 = #44-2335 44-2375 *44-2379 57-2893 63-3127 63-3140 63-3141 64-3155 
64-316 #64-3168 *64-3171 64-3172 64-3185 65-3201 65-3202 65-3215 65-3216 
*68-3289 68-3302  *68-3303 68-3306 68-3321 8-3528 68-3340 68-3355 68-3357 
68-3359  *68-3361 68-3362 68-3364 *69-3410 269-3417 69-3418 81-3786 *81-3787 
*81-3791 81-3792 *81-3803 89-4046 89-4051 106-4195 

KIPARS = 172352 #17-1486 =*60-3024 60-3026 61-3067 61-3070  *%62-3091 106-4196 

KIPAR6 = 172354 #17-1486 = #4222 $ #44-2336 59-2950 59-2951 59-2956 59-2958 59-2971  *59-2990 
*59-2992 259-299 *60-3011 60-3019 60-3024 60-5036 62-3088 69-3423 69-3426 
#693436 69-3437 69-3441 *88-3995 88-4002 88-4004  *88-4029 

KIPAR? = 172356 #17-1486 35-2053 56-2824 57-2896 68-3331 68-3370 

KIPDRO = 172300 #17-1486 58-2921 

KIPDOR1 = 172302 #17-1486 

KIPDR2 = 172304 #17-1486 

KIPDR3S = 172306 #17-1486 

KIPDR4 = 172310 #17-1486 

KIPDRS = 172312 #17-1486 

KIPDR6 = 172314 #17-1486 

KIPDR7? = 172316 #17-1486 

«SP =%000006 #17-1486 *29-1774 29-1778 9-1791 91799 = #29=1828 = 29-1836 = 29-1842 = # 29-184 
$9-1839 #29-1851 29-1859 *29-1875 29-188 $67 -1585 #29-1889 97 13E6 #30-1927 

0-1929 30-1930 30-1935 0-193 1-194 #31-1950 1-195 #31-195 #31-1957 

31-1957 32-1975 32-1977 2-1978 3-1990 #35=2031 = # 35-203 *35-2058 35-2059 
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SEQUENCE 144 
SYMBOL CROSS REFERENCE CREF vO1 
SYMBOL VALUE F ae 
17-14 ~4084 97-40 
= 177546 #17-14 
LKVEC = 100 #17-14 
LMAH oot #21-149 “$8331 68-3366 “60-3528 69-3 3 335 
LMAHI == 1777 wien isi6 8-2166 42- § 44-2359 = 45-2395 331 68-3338 79-3737 79-3741 
oy 308 i 761 *81- 74 81-3775 ie 777 Ss 811 82-3812 82-3814 83-3830 
383 - $36 85- ah 5-38 106-4193 
LMAL 1306 #21-1493 “?s- 2 68-3 $$ *68-3339 $3-356 63-3738 
LMALOW = 177734 ad ap 4. 8-2166 42-2279 44-2359 45-2391 45-2400 68-3320 68-3339 79-3735 
OADRS = 177740 wien See 
LOEFLG 004312 $97¢¢6 296-Séoe #42-2299 = 44-2326 = #44-2370) = *70-3471 = #71-3487 = *72-3508 39 74-3565 
*75-3583 *76-3596 89-4042 89-4062 
LOOP 010606 54-2727  #54-2729 95-4080 
LOWEST 256 #21-1493 42-2272 44-2336 64-3155 64-3156 67-3251 68-3286 68-3289 73-3548 
37 81-3780 87-3954 89-4046 


001 
30 
LREGL 001300 #21-1493 42-2271 44-2332 44-2380 wy rm Ft 67-3257 68-3285 79-3727 89-4048 
LREGU 001302 " br 42-2270 44-2331 44-2382 44-2383 67-3257 *67-3258 73-3542 79-3728 


MAINT = 177750 #16-1463 uf at On *50-2496 50-2533 
MAPADD 004106 #42-2263 71-3489 75-3584 
MAPHO = 170202 #17-1486 

MAPHOO = 170202 #17-1486 17-1486 56-2852 
MAPHO1 = 170206 #17-1486 17-1486 
MAPHO2 = 170212 #17-1486 17-1486 
MAPHOS = 170216 #17-1486 17-1486 
MAPHOS = 170222 #17-1486 17-1486 
MAPHOS = 170226 #17-1486 17-1486 
MAPHO6 = 170232 #17-1486 17-1486 
MAPHO7 = 171 #17-1486 17-1486 
MAPH1 = 170206 #17-1486 

MAPH1O = 170242 #171486 

MAPH11 = 170246 #17-1486 

MAPH12 = 170252 #171486 

MAPH135 = 170256 #17-1486 

MAPH14 = 170262 #17-1486 

MAPH15 = 170 #17-1486 

MAPH16 = 170272 #17-1486 

MAPH17 = 170276 #17-1486 

MAPH2 = 170212 #17-1486 

MAPH20 = 170302 #17-1486 

MAPH21 = 170306 #17-1486 

MAPH22 = 170312 #17-1486 

MAPH2S = 170316 #17-1486 

MAPH24 = 170320 #171486 

MAPH25S = 170326 #17-1486 

MAPH26 = 170332 #17-1486 

MAPH27 = 170336 #17-1486 

MAPHS) = 170216 #17-1486 

MAPH30 = 170342 #17-1486 

MAPH31 = 170346 #17-1486 


| 
| 
| 
| ERENCES 
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CKKUAD CREATED BY MACRO ON 26-OCT-81 AT vas PAGE 9 


EQUENCE 146 
SYMBOL CROSS REFERENCE CREF v01 
MASK2 776 SOresa8. #52=2602 #56=2810 #56-2854 
MEMERR = 177764 #17-14 
MFPT = ? #16-1469 _ $4-2680 
MMFLAG 003374 #37-2119 37-2133 #54-2739 #93 -4076 
WRK 001270 #21-1493 52-2595 #643165 864-3183 #643184 
MARLOW 001266 #21-1493 52-2595 #64~3154 
MMRO = (177572 W12-1486 17-1486 37-2128 437-2132 *50-2484 *54-2734 57-2874 © *58-2935 #62-3087 
#63-3125 68-3282 68-3287 #77-3631 —#79-3722 «879-3733 83-3826 © #B7-3950 — #88-3997 
93-4076  *95-4080 
MRI = 177576 #17-1486 = 17-1486 = 37-2129 
MAR2 = 177576 #17-1486 17-1486 ~=—-37=2130 
MARS = =: 172516 #17-1486 17-1486 ~2008 54-2735 +57-2881  *58-2934 +65-3124 +68-3278  *68-3280 
* #70-3470 *77=3632 *79-3723-*79-3731 «80-3757 #8 1-3784 *81-3804 #8 3-3827 
#87-3965 #87-3966 *95-4080 «106-4188 
MMTOTM 017616 70-3474 74-3566 #89=4042 
MMTRAP 003372 #37-2118 54-2729 
C_ = 000250 #17-1486 —*54-2729 #542730 
MRQUES 006752 #53-2624 55-2763 
NEWSWR 006157 #52-2615 54-270 
NEXMEM = 000040 44-2350 44-2353 -#72-3507 
NEXT 003552 38-2150 38-2153 38-2158 + #38-2160 
006417 29-1793  #53-2620 
NOMSG 013646 64-3187 66-3222 66-3232: #67-3250 
001316 #21-1493  *87-3972 - 
NXTTST 001362 #21-1493 #472441 #873953 
DPC 8001342 #21-1493 *35-2031 «35-2059 = #36-2086 36-2089 = -36-2107 —#37-2126 = 37-2135 
OLDPS 001344 #21-1493  #35-2032 35-2058 = «36-2087 36-2106 = *37-2127 «= 37-2134 
OLDPSW 001346 #21-1493 *32-1977 33-1990: #33-1991 
PADRSH 001230 #21-1493  *30-1925 #311949 
PADRSL 001226 #21-1493 *30-1926 30-1927 *31-1948 31-1950 
PATAND 001252 #21-1493 *40-2198 *56-2857 #92-4074 «106-4187 106-4189 
PATCH 007140 #53-2631 
PATEXT 003650 #40-2196 56-2819 61-3050 
PATRNS 006100 #52-2605 56-2813 60-3038 
PATTOR 001254 #21-1493  *40-2196 #562855 #92-4074 106-4187 106-4189 
PCONTR 001334 #21-1493 
PUER 001330 #21-1493 — *35-2035 #352039 35-2040 «35-2041 «36-2088 += 36-2094 + *36-2103 © 36-2105 
*38-2161 38-2168 © #44-2338 «= 44-2348 44-2353 860-3013 60-3017. #683304 68-3313 
87-3964 88-4020 *88-4026 89-4052 89-4059 106-4182 106-4183 106-4191 106-4206 
IRQ = 177772 #17-1486 
PIRQVE = 000240 #17-1486 
PMAINT 001336 #21-1493 
CD 002526 29-1893  #29-1897 
CF 0025 29-1893  #29-1898 
PMBECH 002476 29-1893  #29-1895 
PMBECM 002442 29-1893  #29-1894 
PMBECW 002432 29-1783  #29-1893 
PMMRO 001350 421-1493 *37-2128 +: 106-4184 
PMMRI 001352 #21-1493 37-2129 106-4184 
PMMR2 001354 421-1493 *37-2130 106-4184 
PPARER 001332 #21-1493 
PRETST 005166 #47-2640 55-2750 56-2805 57-2873 59-2949 60-3008 62-3085 68-3277 69-3408 


' 
OOOO eee ee 


CKKUAD CREATED BY MACRO ON 26-OCT-81 AT 11:20 PAGE 10 
wpm bei 


SYMBOL CROSS REFERENCE v01 

oe Fea 1 71-348 72-3501 74-3564 75-3581 76-3595 77-3630 78-3686 79-3721 
80-3755 1-397 3-38 0 83-3823 84-3850 85-3877 87-3949 88-3992 

PRO = 000000 #17-1486 

PRI = 000040 #17-1486 

PR = 000100 #17-1486 

PR = 000140 #17-1486 

PR4 = 000200 #17-1486 

PRS = 000240 #171486 

PR6 = 000300 #17-1486 

PR? = 000340 #17-1486 

PS = 177776 #17-1486 17-1486 54-2639 

PSW = 177776 #17-148 

PTMP2 005 42-2284 44-2363 #45-2391 

PWRMSG 023646 102-4097 #102-4098 

PWRVEC = 000024 #17-1486 4-2653 54-2653 *102-4097 *102-4097 *102-4097 102-4097 *102-4097 +*102-4097 

RDCHR = 104406 55-2764 100-4090 #101-4092 

RDLIN = 104407 51-2567 #101-4092 

CT = 1046415 #16-1473 54-2703 #101-4092 #101-4095 

RELC22 011672 57-2913 #58-2917 

RESREG = 104412 30-1934 31-1956 #101-4092 103-4101 

RESVEC = 000010 #17-1486 = *54~-2658 54-2664  +*54-2664 

RETRY 001360 #21-1493 = 92-4074 

RSIZE 001356 #21-1493 = 44-2375 

R10 =%000000 #17-1486 

R11 =%000001 #17-1486 

R12 =%000002 #17-1486 

R13 =%000003 #17-1486 

R14 =%000004 #17-1486 

R15 =%000005 #17-1486 

R3STAK 004314 42-2267  #43-2306 

R6 =%000006 #17-1486 = *50-2530 *50-2530 

R7 =%000007 #17-1486 

SAVREG = 104411 30-1911 31-1944 #101-4092 103-4101 

SCOPE = 000004 #17-1486 55-2750 56-2805 57-2873 59-2949 60-3008 62-3084 68-3277 69-3408 
70-3469 71-3486 72-3500 73-3520 74-3564 75-3581 76-3595 77-3630 78- 
6 a $44) 80-3755 81-3773 82-3810 83-3823 84-3850 85-3877 87-3949 88-3992 

SDPARO = 172260 #17-1486 

SDPAR1 = 172262 #17-1486 

SDPAR2 = 172264 #17-1486 

SDPARS = 172266 #17-1486 

SDPAR4 = 172270 #17-1486 

SDPARS = 172272 #17-1486 

SDPAR6 = 172274 #17-1486 

SDPAR? = 172276 #17-1486 

SDPDRO = 172220 #17-1486 

SDPDR1 = 172222 #17-1486 

SDPDR2 = 172224 #17-1486 

SDPDRS = 172226 #17-1486 

SDPDR4 = 172230 #17-1486 

SDPDRS = 172232 #17-1486 

SDPDR6 = 1722 #17-1486 


(oo 
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SEQUENCE 148 
SYMBOL CROSS REFERENCE CREF v0O1 
dao 9 VALUE REFERENCES 
= Ws 3% 17-14 

SIPARO = 172240 #17-1486 

SIPAR1 = is 42 #17-1486 

SIPAR2 = 172244 #17-1486 

SIPARS = 172346 #17-1486 

SIPAR4 = 172250 #17-1486 

SIPARG = 179956 417-1486 

+4 oo 

SIPAR7 = 173956 #17-1486 

SIPDRO = 172200 #17-1486 

see) ie Bima 

SIPDR3 = 179906 #17-1486 

sims See ees 

SIPDR6 = 172214 #17-1486 

SIPDR7 = 172216 #17-1486 

SIZEHI = 177762 #17-1486 

SIZEJO 012744 93134 62-3086 62-3101 #63-3115 87-3958 

S17E32 013408 #63-3196 

SIZELO = 177760 #17-1486 

SPECS 006000 #52-2603 63-3118 63-3123 66-3231 66-3234 

SRO = 177572 #17-1486 

SR1 = 177574 #17-1486 

SR2 = 177576 #17-1486 

SR3 = 172516 #17-1486 

SSP =%000006 #17-148 

STACK = 001100 #17-1486 17-1486 17-1486 17-1486 54-2645 54-2663 

TART 010000 18-1489 #54-2639 63-3144 102-4097 

STKLM' = 177774 #17-14 

SUPSTK = 000700 #17-1486 

WR 001136 #21-1493 29-1797 42-2281 44-2361 46-2426 54-2686 54-2688 54-2694 54-2699 
#54-2728 55-2778 56-2831 57-2906 59-2985 61-3057 68-3317 68-33 68-3346 
6 73-3523 77-3644 78-3687 78-3694 81-3800 83-3841 84-3868 85-3894 
87-3951 89-4049 92-4074 92-4074 92-4074 92-4074 92-4074 93-4076 93-4076 
93-4076 93-4076 93-4076 95-4080 102-4097 102-4097 

SWREG 000176 #18-1489 

SwWO = 900001 #17-1486 

SwO00 = 000001 #17-1486 17-1486 

Sw01 = 000002 #17-1486 17-1486 

Sw02 = 000004 #17-1486 17-1486 

Sw03 = 000010 #17-1486 17-1486 

SWO4 = sai #17-1486 17-1486 

sw05 = 00004 #17-1486 17-1486 

SW06 = 000100 #17-1486 17-1486 

Sw07 = 000200 #17-1486 17-1486 

Sw08 = 000400 #17-1486 17-1486 

SwWO9 = 001000 #17-1486 17-1486 

Sw = 000002 #17-1486 

$wW10 = 002000 #17-1486 

SW11 = 004000 #17-1486 











CKKUAD CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VAL 
Swi = 4 
Sw1 = 02 
SW14 = 040000 
Sw15 = 100000 
SW = 000004 
Si = 000010 
SwW4 = 000020 
Sw5 = 000040 
SW6 = 000100 
Sw7 = 000200 
Sw8 = 000400 
Sw9 = 001000 
SYSTID = 177764 
TBIT = 000020 
TBITO = 104413 
TBI TOF 002726 
TBITR = 104414 
TBITRE 002754 
TBITVE = 000014 
TCPMRA 004416 
TIMEOU 003030 
TIMOUT = 000020 
TKVEC = 000060 
TOFLAG 003032 
TOMSG 006257 
TPVEC = 000064 
TRAPVE = 000034 
TRTVEC = 000014 
TSTLOC 003474 
ST1 010676 
TST10 014616 
TST11 015072 
TST12 015140 
TST13 015174 
TST14 015334 
TST15 015362 
TST16 015420 
TST17 015450 
TST2 011122 
TST20 015610 
TST21 015744 
TST2 016144 
TST2 016212 
TST24 016420 
TST25 016464 
TST26 016626 
TST27 016762 
TST3 011444 
TST30 017110 
TST31 017336 
TST32 == 021450 


MACRO ON 26-OCT-81 AT 11:20 
SEQUENCE 149 
CREF V 


REFERENCES 
#17-1486 


#87-3985 


29-1797 
93-4076 
32-1975 
101-4093 


63-3134 


*35-2043 
66-3233 


#72-3500 
#75-3581 


88-3992 


32-1978 


95-4080 


54-2653 
76-3597 


59-2959 
64-3176 
*35-2055 


54-2653 


69-3457 


#56-2805 
5 


#82-3810 
#83-3823 


56-2850 
#87-3949 
#88-3992 


PAGE 12 
01 


33-1991 


#101-4094 


59-2964 
65-3206 


*35-2057 


65-3207 


470-3469 


457-2873 


59-2974 
68-3309 


*54-2738 


81-3794 


#78-3686 


59-2987 
89-4053 


*93-4076 


81-3797 


60-3014 
89-4059 


60-3029 


60-3041 


CKKUAD 


UIPDRO 


aeababh att atad 
Raw anon 
RNR SARS 


60- O08 61-3068 
#68-327 
#29~1829 66-3228 
9-1843 29-1883 
9-1793 9-1810 
1=1954 4-2670 
66-3223 66-3229 
93-4076 ~4080 
100-4090 #101-4092 
29-1779 29-1837 
#101-4092 
29-18 #101-4092 
29-186 #30-1911 
29-1868 431-1944 
#522614 87-398 
#52-2616 87-3984 
#21-1493 *64-3162 
#21-1493 = *64-3159 
#73-3520 
#21-1493 = *42-2275 
*68-3305 68-3508 
#21-1493 68-3297 
#21-149 #44-2341 
#21-1493 52-2595 
#21-1493 52-2595 
#17-148 
#17-1486 
#17-1486 
#17-1486 
#17~1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 
#17-1486 


#17-1486 


RS oO ons 
ise #60-3008 


CREATED BY MACRO ON 26-OCT-81 AT “— 
SYMBOL CROSS REFERENCE 
SYMBOL 


#62-3084 


102-4097 
#101-4092 


#64-3163 
*65-3196 


42-2276 


*64~3158 


QUENCE 150 
CREF OV 


H 12 


95-4080 


97-4084 


81-3792 
81-3787 


42-2289 


*63-3132 
*65-3217 


87-3970 


95-4080 
$7855 


98-4086 


88-4037 
87-3975 


#44=-2339 


*68-3279 
*65-3218 


#101-4092 


99-4088 


88-3995 
44-2368 


*70-3472 


87-3969 


$3. 188° 1931 
3 $500 5-2769 
93-4076 

100-4090 100-4090 


46-2433 %63-3131 


*71-3488  +*72-3509 


CKKUAD 


nunnnnnnnne 


CREATED BY MACRO ON 26-OCT-81 AT som 
a CROSS REFERENCE 


7 


#91-4072 


REFERENCES 
#17- 


#66-3221 
#90-4070 

94-4078 
#94-4078 


97-4084 
#94-4078 
93-4076 


*97-4084 
#95-4080 
0 
21-1493 
21-1493 
21-1493 
21-1493 


21-1493 


29-1810 
6 


38-2151 


93-4076 


— — od od — = —— 


31-1951 
#91-4072 


PAGE 14 
EQUENCE 151 
CREF Vv 


93-4076 


*97-4084 


#21-1493 
#21-1493 


#21-1493 
#21-1493 


#21-1493 
#21-1493 
#21-1493 


29-1823 
97-4084 


#103-4101 


01 


I 12 


#97-4084 


66-3229 
97-4084 


66-3230 
97-4084 


#21-1493 
#21-1493 


#21-1493 
#21-1493 


#21-1493 
#21-1493 


66-3237 
100-4090 


21-1493 
21-1493 


66-3242 
100-4090 


1=1493 
1-1493 


2 
2 
21-1493 
21-1493 


93-4076 
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CKKUAD CREATED BY MACRO ON 26-OCT-81 AT 11:20 PAGE 15 


SEQUENCE 152 
SYMBOL CROSS REFERENCE CREF O01 
SYMBOL V. 


UE REFERENCES 
oon | 020104 #93 -407 
SODW 020106 #91407 
SODW4 020110 #91~407 
$O0WS 020112 #91-407 
Dw6 psotte #91-407 
$DDW7 020116 #91-407 
SDDW8 020120 #91-4072 
Dw9 020122 #91-4072 
SDEVCT 020024 #91-4072 
EVM 020072 #91=-4072 
021706 95-4080 95-4080 95-4080 #95-4080 
SDTBL 023050 99-4088 #99-4088 
SENDAD 021676 19-1491 93-4076 #95-4080 
SENDCT 021516 54-2654 #95-4080 
SENULL 021752 #95-4080 
SENV 020034 48-2456 49-2471 55-2758 #91-4072 93-4076 94-4078 94-4078 97-4084 
SENVM 020035 rs wert yt 49-2473 54-2697 54-2726 77-3639 78-3689 #91-4072 94-4078 97-4084 
SEOP 021450 87-3953 87-3962 87-3985 88-4034 #95-4080 
SEOPCT 021510 *54-2654  #95-4080 95-4080 
SERFLG 001101 of test ars 16: *92-4074 92-4074 92-4074 92-4074 92-4074 92-4074 93-4076 
SERMAX 001113 #21-1493 = *54-2656 92-4074 92-4074 92-4074 92-4074 
SERROR 020556 54-2652 #93-4076 
SERRPC 001114 #21-149 29-1778 29-1897 9 *93-4076 389 93-4076 93-4076 93-4076 93-4076 106-4185 
106-4188 106-4191 106-4192 106-4193 106-4194 106-4195 106-4196 106-4197 106-4198 
106-4199 106-4200 106-4201 106-4202 106-4203 106-4204 106-4205 106-4206 106-4207 
SERRTB 001366 #22-1493 1806 29-1811 
SERTTL 001110 21-1493 = *55-2788 = 56-2841 = *57-2914 = #6 1-3064 = *68-3397 = 69-3458 *88-4025 = 93-4076 
93 93-4076 95-4080 95-4080 95-4080 
SESCAP 001214 #21-1493 = #54-2655 = 92-4074 93-4076 93-4076 93-4076 93-4076 
SETABL 020034 #91-4072 
SETEND 020140 90-4070 #91-4072 
SFATAL 020016 #91-4072 94-4078 
SFFLG 021446 *94-4078  +*94-4078 94-4078 *94-4078  #94-4078 
SFILLC 001154 #21-1493 97-4084 97-4084 97-4084 
SFILLS 001153 #21-1493 97-4084 97-4084 
AD 001116 #21-1493 
SGDDAT 001122 #21-1493 
$GET42 021650 #95~40 


= 
4 
nu 
% 
> 
* 
=» 
a 
~_ 
So 
— 
a 
= 
i=) 
© 
Nm 


000000 16-1482 16-1482 16-1482 
SHIBTS 020000 #90-4076 
SHIOCT 005734 #51-2587 #51-2592 
SICNT 001102 #21-1493_ = #92-4074 92-4074 92-4074 92-4074 92-4074 
ILL 023640 102-4097 102-4097 #102-4097 
SINTAG 001133 #21-1493 
SITEMB 001112 #21-1493 29-1776 + *93-4076 93-4076 93-4076 93-4076 93-4076 93-4076 93-4076 
F 001224 #21-1493 93-4076 93-4076 97-4084 97-4084 100-4090 100-4090 100-4090 
SLFLG 021445 *94-4078  #94-4078 
oop 021744 95-4080 #95-4080 
$LPADR 001104 W21-1493 = #47-2446 = *54-2666 §=— 92-4074 3=— # 92-4074 92-4074 92-4074 92-4074 
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ENCE 153 
or «7 pagharenen: REFERENCES CREF O01 
SLPERR 001106 21-1493 = 42-2269 = 844-2337 = 847-244 *54=2667 55-2776 *55-2785 56-2807  +*56-2833 
*56-2840 56-2851 61-5051 63-313 *64-3167 65-3199 81-3785 87-3958 92-4074 
#92-4074 92-4074 92-4074 93-4076 
SMADR1 020046 #91-4072 
SMADR 020052 #91-4072 
SMADR 020056 #91-4072 
SMADRS 020062 #91-4072 
SMAIL 020014 90-4070 90-4070 #91-4072 92-4074 93-4076 97-4084 
SMAMS1 020044 #91-4072 
SMAMS2 020050 #91-4072 
SMAMS3 020054 #91-4072 
SMAMSS 020060 #91-4072 
SMBADR 020002 #90-4070 
SMFLG 021444 *94-4078 94-4078 *94-4078 #94-4078 
SMNEW 023361 #100-4090 
SMSGAD 020030 #91-4072 94-4078 94-4078 
SMSGLG 020032 #91-4072 94-4078 
SMSGTY 020014 s32-a0%e *36-2082 *37-2121 8 *54-2709 = #55=2760 38991-4072 94-4078 94-4078 94-4078 
. 4 a 
SMSWR 023350 #100-4090 
SMTYP1 020045 #91407 
SMTYP2 020051 #91-4072 
SMTYP3 020055 #91-4072 
SMTYP4 020061 #91-4072 
SMXCNT 020550 92-4074 92-4074 92-4074 #92-4074 
SNULL 001152 #21-1493 97-4084 97-4084 97-4084 
SNWTST = 000001 #54-2750 54-2750 #55-2750 55-2750 #55-2805 55-2805 #56-2805 56-2805 #56-2873 
56-2873 #57-2873 57-2873 #58-2949 58-2949  #59-2949 59-2949  #59-3008 59-3008 
#60-3008 60-3008  #61-3084 61-3084 #62-3084 62-308 #67-3277 67-327 #68-3277 
68-327 #68-3408 8-340 #69-3408 $9-3408  #69-3469 #70-3469 
#70-3486 70-348 #71-3486 71-3486 8 #71-3500 71-350 #72-3500 - #73-3564 
- #74-3564 74-356 #74-3581 74-3581 #75-3581 75-3581 + #75-3595 75-3595 
#76-3595 - #76-3630 76-3630 #77-3630 77-363 #77-3686 - #78-36 
- #78-3721 78-372 #79-3721 9-3721 &#79-3755 79-375 #80-3755 
#80-377 80-377. #81-3773 81-3773 #81-3810 81-381 #82-3810 82-3810  #82-3823 
82-382 #83-3823 83-382 #83-3850 83-3850  #84-3850 84-385 #84-3877 


3 3 0 84-387 
#85-3877 85-3877  #86-3949 86-3949  #87-3949 87-3949  #87-3992 87-3992  #88-3992 


88-3992 
SOCNT 022640 *98-4086 *98-4086  #98-4086 
SOCTVL 024014 103-4101 #103-4101 
SOMODE 022642 *98-4086 *98-4086 98-4086 +*98-4086 +*98-4086  #98-4086 
SOVER 020534 92-4074 92-4074 92-4074 92-4074 #92-4074 
SPASS 020022 #54-2644 54-2674 66-3221 87-3977 #91-4072 92-4074 92-4074 92-4074 +*95-4080 
*95-4080 95-4080 95-4080 95-4080 
SPASTM #90-4070 
023622 #102-4097 
SPWRDN 023462 54-2653. #102-4097 102-4097 
SPWRMG 023616 #102-4097 
023534 102-4097 #102-4097 
SQUES 001222 #21-1493 ~4076 93-4076 97-4084 97-4084 100-4090 100-4090 100-4090 
SRDCHR 023070 #100-4090 101-4092 101-4092 


SRDDEC = seen 101-4092 
























CKKUAD CREATED BY MACRO ON 26-OCT-81 AT 11:20 PAGE 17 
SEQUENCE 154 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL UE REF ERENC 
SROLIN 023220 #100~4090° 101-4092 101-409 
005626 1=2562 101-4092 101-409 101-4095 
$RDSZ = 000010 #100-4090 100-4090 
SRE 001156 #211493 
$REGO 001160 #21-1493  *93-4076 106-4203 
SREG] 001162 #21-1493 93-4076 106-4193 
SREG2 001164 #21-1493 *93-4076 106-4194 106-4200 
SREGS 001166 #21-1493 = *93-4076 106-4199 106-4205 
SREG4 007170 #21-1493 = #93-4076 106-419 
SREGS 001172 #21-1493 *93-4076 106-4207 
SRESRE 022014 #96-4082 101-4092 
T 021746 #95-4080 
SRTRN 021742 54-2653 9 *54-2657 = 54-2662 95-4080 
$R2A = teenee 101-4092 
SSAVRE 021756 #96-4082 101-4092 101-4092 
SSAVR6 2 *102-4097 102-4097 *102-4097 *102-4097 
SSCOPE 020140 54-2652 #92-4074 
SSETUP = 0 #18-1488 18-1488 #18-1488 18-1488 
18-1488 #18-1488 92-4074 93-4076 
4090 100-4090 107-4097 
SSSWR 000176 #28-1730 54-269 54-2699 54-2700 
SSTUP = 177777 #18-1488 #18-1488 18-1488 #18-1488 
#18-1488 #18-1488 18-1488 #18-1488 
SSVLAD 020500 92-4074 #92-407 
$SVvPC = 000204 #19-1491 19-1491 
SSWR = 177400 #16-1467 16-1482 16-1483 16-1483 
16-1483 21-1493 21-149 21-1493 
62-3084 68-3277 69-3408 70-3469 
77-3630 78-3686 79-3721 80-3755 
87-3949 88-3992 92-4074 92-4074 
92-4074 92-4074 92-4074 92-4074 
92-4074 92-4074 2-4074 92-407; 
93-4076 93-4076 93-4076 93-4076 
95-4080 95-4080 102-4097 
SSWREG 020036 54-272 77-3641 78-3691 #91-4072 
SSWRMK = 00034 #16-1466 16-1483 16-1483 16-1483 
16-148 92-4074 92-4074 92-4074 
92-4074 gary $6 92-4074 
$TBIT 021750 *54-266 *95-4080 95-4080 95-4080 
STESTN 020620 29-1897 52-2595 7-3960_ #91-4072 
106-418 106-4186 106-4187 106-41 
106-4194 106-4195 106-4196 106-4197 
106-426 106-4204 106-4205 106-4206 
STIMES 001212 #21-1493 = #47-2447 274074 92-4074 
$TKB 001144 #21-1493 97-4084 oar 94 97-4084 
$TKS 001142 # ob 54-2641 97-4084 97-4084 
$STMPO 001174 #21-1493 = 38-2146 z- 170 “36-4617 
*61-304 *63-3129 154 64-3160 
68-336 *68-3373 199-3737 *79-3738 
*84-3856 84-3857  +*84-3859 84-3860 
*85-3890 85-3891 106-4194 106-4195 


L 12 


106-4205 


#95-4080 


#102-4097 


#18-1488 
93-4076 


#54-2704 
#18-1488 
#18-1488 


93-4076 
16-1483 
92-4074 
#732080 


97-4084 
“Be-$188 


106-4199 


18-1488 
93-4076 


*54-2706 


18-1488 
18-1488 


16-1483 


93-4076 

16-1483 

92-4074 
*102-4097 


106-4199 
92-4074 
100-4090 
97-4084 


*57-2878 
8 


5 
106-4200 


#18-1488 
93-4076 


#18-1488 


16-1483 


95-4080 


16-1483 
92-4074 


106-4182 
106-4191 
106-4200 


92-4074 
100-4090 
100-4090 


*57- 883 


106-4207 


18-1488 
95-4080 


#18-1488 


Bathe e: 


95-4080 


16-1483 
92-4074 


106-4183 
106-4192 
106-4201 


*95-4080 
100-4090 
100-4090 


57-2884 
*68-3283 
*83-53837 

85-3884 


#18-1488 
95-4080 


18-1488 


16-1483 
60-3008 


16-1483 
92-4074 


106-4184 
106-4193 
106-4202 


100-4090 
100-4090 


57-2901 
*68-53349 
83-3838 
85-3886 


pao eee ee a 


12 


CKKUAD CREATED BY MACRO ON 26-OCT-81 AT 11:20 PAGE 18 
SEQUENCE 155 
or se REFERENCES CREF 01 
STMP1 001176 Pe1eie98 #42=2283 = #42- 43 #44=2366 #48-2462 %49-2477 161-3046 106-4200 106-4207 
STMP2 001200 #21-1493 = 42-2287 3=— #44- 236 #45-2400 *45-2401 45-2402 45-2403 45-2403 +*59-2950 
m4) *83-3831 *83-3832 83-3833 83-3838 84-3857  +84-3858 84-3860 84-3865 
*85-3884 85-3885 85-3886 85-3891 
STMP3 001202 #21-1493 = #57=2891 57-2892 68-3326 68-3327 106-4198 
STMPS 001204 #21-1493 = *88-4013 = 88-4018 106-4202 
STMPS 001206 #21-1493 = #41-2224 41-2229 41-2230 60-3025  *60-3027 61-3067 61-5070 *88-4019 
106-4196 106-4202 : 
STMP6 001210 #21-1493 60-3012 60-3020 0-3025 
STN = 000032 #16-1468 16-1482 54-2750 5-2750 55-2750 55-2750 #55-2750 55-2787 55-2805 
56-2805 56-2805 56-2805  #56-2805 56-2848 56-2850 56-2873 57-2873 57-2873 
57-2873 #57-2873 58-294 59-294 59-2949 59-2949 #59-2949 59-3008 0-300 
60-3008 60-300 #60-3008 61-3068 61-3084 62-3084  #62-3084 67-3277 68-3277 
68-327 68-327 #68-3277 68-3396 68-3408 69-3408 69-3408  #69-3408 
69-3425 69-3457 -34 70-3469 70-3469 70-346 #70-3469 70-34 71-34 
71-3486 71-348 #71-3486 71-3500 72-3500 #72-3500 73-35 74-35 74-35 
74-3564 #74-3564 74-3581 75-3581 75-3581 75-3581 #75-3581 75-359 76-3595 
76-3595 76-3595 #76-3595 76-3630 77-3630 77-3630 77-363 #77-3630 - 
77-3645 77-3651 77-368 78-368 78-3686 78-3686 #78-3686 78-370 78-3721 
79-3721 79-3721 79-3721 = #79=3721 79-3744 79-3747 79-3755 80-3755 80-3755 
80-3755  #80-3755 80-3760 80-377 81-3773 81-3773 81-3773 481-3773 81-3783 
81-3810 82-3810 82-3810 82-3810  #82-3810 82-3813 oc -te8 83-3823 83-3823 
83-3823 #83-3823 83-385 84-3850 84-3850 84-3850  #84-3850 84-3877 85-3877 
85-3877 85-3877 #85-3877 86-3949 87-3949 87-3949 87-3949  #87-3949 87-3978 
87-3992 88-3992 88-399 88-3992  #88-3992 
STPB 001150 #21-1493 97-4084 97-4084 97-4084 
STPFLG 001155 #21-1493 97-4084 97-4084 97-4084 
TPS 001146 #21-1493 97-4084 97-4084 97-4084 
STRAP 023372 54-2652 #101-4092 
STRAP2 023414 #101-4092 101-4092 
STRP = 0000 #101-4092 101-4092 101-4092 101-4092 101-4092 #101-4092 101-4092 101-4092 101-4092 
101-4092 #101-409 101-4092 101-4092 101-4092 101-4092 #101-4092 101-4092 101-4092 
101-4092 101-4092 #101-4092 101-4092 101-4092 101-4092 101-4092 #101-409 101-4092 
101-4092 101-4092 101-4092 #101-4092 101-4092 101-4092 101-4092 101-4092 #101-4092 
101-4092 101-4092 101-4092 101-4092 #101-4092 101-4092 101-4092 101-4092 101-4092 
#101-4092 101-409 101-4092 101-4092 101-4092 #101-4092 101-4093 101-4093 101-4093 
101-4093 #101-409 101-4094 101-4094 101-4094 101-4094 #101-4094 101-4095 101-4095 
101-4095 101-4095 #101-4095 
STRPAD 923426 101-4092 #101-4092 
STSTM 020004 #90-4070 
STSTNM 001100 #21-1493 = #472443 47-2444 =*73=3521 = *73-3525 = 77-3637 = 78-3707 = * 87-3959 92-4074 
: wri 15} so8 thee 92-4074 92-4074 92-4074 92-4074 93-4076 93-4076 93-4076 
= * - 
STTYIN 023326 100-4090 100-4090 100-4090 #100-4090 
STYPBN = seeees 101-4092 
STYPDS 022644 #99-4088 101-4092 101-4092 
STYPE 022052 94-4078 #97-4084 101-4092 101-4092 
STYPEC 022264 97-4084 97-4084 97-4084  #97-4084 
STYPEX 022414 97-4084 97-4084 97-4084 #97-4084 
$TYPOC 022442 #98-4086 101-4092 101-4092 
$TYPON 022456 98-4086 #98-4086 101-4092 
$STYPOS 022416 #98-4086 101-4092 


RRbe Eade mc are Ae ie ai tg ae \ Vokalidio 





CKKUAD CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
SUNIT 020026 
SUNITM 020010 
$uS 020040 
$SVECT1 020064 
$VECT2 02006 
SXOFF = 00002 

XON = 00002 
SXTSTR 020244 
$$GET4 = 000001 

SOF ILL 022641 
SGOCAT = xxenen 
SASTA = keeeee 

- $X = 020000 

. $Y = 002026 


REFERENCES 
#91-407 


790-4070 


#28-1728 


MACRO ON 26-OCT-81 AT 11:20 


97-4084 
97-4084 


#95-4080 


28-1731 


N 12 
PAGE 19 
SEQUENCE 156 
CREF v01 


97-4084 100-4090 


95-4080 
98-4086  #98-4086 



















CKKUAD CREATED BY MACRO ON 26-OCT-81 AT ot 


MACRO CROSS REFERENCE 
MACRO NAME ha a 


C NM 14 
#16-134 95-4080 
ENDCOM #17-14 
ESCAPE #17-14 
GETPRI #17-1486 #95-4080 
GE TSWR #17-1486 
G #80-3764 #81-3773 #81-3805 #8 
#87-39 #88-3992 
MSG1 #54-2741 55-2750 
MSG11 #67-325 68-3277 
MSG1 #68-34 #69-340 
MSG1 #69~3461 70-3469 
MSG14 #70-3476 1-34 
MSG15 #71-349 #72-3500 
G16 #73-355 #74-3564 
MSG17 #74-3568 75-3581 
G2 #55-2791 #56-2805 
SG20 #75-3587 76-3595 
MSG21 76- #77-3630 
SG22 #77-365 78-3686 
MSG220 #78-3709 79-3721 
MSG221 #79-3749 80-375 
S623 #86-3938  #87-3949 
MSG4 #56-2861 #57-2873 
MSGS #58-2939  #59-2949 
MSG6 #59~2 #60-3008 
MSG7 #61-3071 #62-3084 
T #17-1486 
NEWTST #16-1459 = #17-1486 = #54-2750) = #5 
#69-3469 #70-3486 #71-3500 #7 
#80-3773 #81-3810 #82-38235 #8 
POP #17-1486 894-4078 9 #94-4078 = #9 
SH #17-1486 94-4078 94-4078 9 
REPORT #17-1486 
SAVTST #16-1381 #93-4076 
SETPRI #17-14 
SETTRA #101-4092 101-409 101-4092 1 
101-40 101-409 101-4094 1 
SETUP #17-1486 
SKIP #17-1486 55-2787 #56-2848 #5 
#77-3651 = #79-3744 = #79-3747 #8 
SKIPJ #16-1334 78-3708 
SLASH #17-1486 
SPACE #16-1340 #17-1486 
SSCOPE #16-1359 = #92-4074 
TARS #17-1486 19-1491 1-1493 2 
-1960 32-1961 2-1963 3 
35-2016 35-2023 36-2062 3 
39-2174 39-2181 40-2188 4 
46-2407 46-2421 47-2439 4 
55-2750 56-2805 56-2805 5 
62-3084 63-3104 63-3114 6 


B 13 


PAGE ¢° 
QUENCE 15 

CREF O01 
2-3810 #82-3817 #83-3823 483-3844 484-3850  #84-3871 #85-3877 
35-2805 #56-2873 #58-2949 #59-3008 #61-3084 67-3277  #68-3408 
3-3564 874-3581 = #75-3595 = #76-3630 = #77-3686 «= # 78-3721 = #79-3755 
35-3850 #84-3877 86-3949 #87-3992 
6-4082 #99-4088 #102-4097 #102-4097 
4-4078 96-4082 99-4088 102-4097 102-4097 
94008 101-4092 101-4092 101-4092 101-4092 101-4092 101-4092 
6-2850  #61-3068 468-3396  #69-3425 #69-3457 #77-3642 #77-3645 
0-3760 #81-3785  #82-3815 #87-3978 
1-1493 29-1733 29-1773 30-1900 30-1910 31-1938 31-1943 
2-1964 32-1966 32-1973 33-1981 33-1989 34-1995 34-2004 
6-2064 36-2066 36-2078 37-2110 37-2117 38-2138 2145 
0-2195 41-2202 41-2216 42-2252 36-560 44-2318 44-2325 
7-3873 37-2873 $9-9969 39-0949 60-3008 60-8008. G3-S084 
63148 g6-3153 23-3189 ¢3-3198 66-3220 67-3244 = 3009 

























CKKUAD 


SWRSU 
TRACK 


TRACK1 


SSSET 
$SSKIP 
-EQUIV 


VIADaXAUCNWIV 


#16-689 
#16-1459 


97-4084 


55-2750 
75- 


85-3877 
95-4080 
#17-1486 
#21-1493 


#21-1493 
#17-1486 


103-4101 


CREATED BY MACRO ON 26-OCT-81 AT omg 
MACRO CROSS REFERENCE 
MACRO NAME REFER 


9-3408 


90-4070 
98-4086 


56-2805 


87-3949 


95-4080 


#95-4080 
#93-4076 
#21-1493 
#21-1493 


#54-2750 


#20-1493 


C 13 


PAGE ¢' 
QUENCE 15 
CREF vO1 
a 408 A 69 
3 518 73- 266 
7 =3$3 77- 
81-377 81-377 
85-3897 85-3903 
90-4070 90-4070 
99-4088 =4 
57-2873 59-2949 
77-3630 38-5086 
88-3992 
57-2873 59-2949 
77-3630 78-3686 
88-3992 
#95-4080 
#21-1493 = #21-1493 
#21-1493 = #21-1493 
#55-2805 #56-2873 
#73-3564 #74-3581 
3-3850 #84-3877 
#101-4092 #101-4092 
#101-4095 
56-2850  #61-3068 
#80-3760 #81-3783 
17-1486 17-1486 
17-1486 17-1486 
17-1486 17-1486 
17-1486 17-1486 
17-1486 -1486 
17-1486 32-1974 


rt 


#21-1493 
#21-1493 


#58-2949 
#75-3595 
86-3949 


a 
#101-4092 


#68-3396 


72-3507 


9 
100-4090 


68-3277 
80-3755 


68-3277 
80-3755 


#21-1493 
#21-1493 


#59-3008 
#76-3630 
#87-3992 
#101-4092 


469-3425 


3 
101-4092 


69-3408 
81-3773 


69-3408 
81-3773 


#21-1493 


#61-3084 
#77-3686 


#101-4092 


#69-3457 
17-1486 


17-1486 


72-3500 
Lea 54 
53-3835 
87-3949 


94-4078 
102-4097 


70-3469 
82-3810 


70-3469 
82-3810 


#67-3277 
#78-3721 


#101-4092 


#77-3642 
17-1486 


17-1486 


72-3500 
75-3581 
79-3721 


95-4080 
102-4097 
71-3486 
83-3823 


71-3486 
83-3823 


#68-3408 
#79-3755 


#101-4092 
#77-3645 


17-1486 


17-1486 





D 13 


CKKUAD CREATED BY MACRO ON 26-OCT-81 AT 11:20 PAGE 22 
eT 


MACRO CROSS REFERENCE v01 
MACRO NAME REFER Ss 

° #16-4 95-4080 
- SERRO #16-86 3-4076 
. #16-1459 #102-4097 
- SREAD #16-1458 100-40 

- SSAVE #16-1458 96-4082 
-SSCOP #16-1039 92-407 

- STRAP #16-1459 = #101-4092 
-STYPD #16-1458 40 
-STYPE #16-1458 97-4084 
-STYPO #16-1458 98-4086 
-1170 #16-1456 17-1486 


